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Genie HI 

Un rapport Prix-Performance inegale ! 
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Caracteristiques 

• Z80A CPU (3,2 MHz); 

• 64 K RAM (extensible 192 K); 

• Clavier minuscule /majuscule 85 touches; 

• Clavier numerique separe; 

• 8 touches de fonction programmables; 

• Ecran vert 12 pouces haute resolution; 

• 24 lignes de 80 caracteres ou 16 lignes de 
64 caracteres; 

• 2 disquettes 325 K chacune (extensible a 4 
de 650 K); 

• CPM 2.2 ou NEWDOS 80 version 2; 

• Interface par allele pour imprimante; 

• Interface serie (modem /communication); 

• Horloge en temps reel. 

• OPTION graphisme haute resolution. 



Professionnel 

De part ses performances, il s'adresse aux pro- 
fessionnels mais son prix le rend accessible a 
une plus large clientele. 



Programmes 

Disposant de plusieurs « operating systems)) 
(les plus repandus au monde) et grace a son 
affichage commutable, il permet de develop- 
per ou d'utiliser l'importante bibliotheque de 
logiciel ecrite sous NEWDOS 80 (GENIE I et H, 
TRS 80 modele I) ainsi que les standards dis- 
ponibles sous CPM (langages utilitaires, 
etc.). 

Pout plus amples renseignements: 

Nom: ' 

Adresse: I 



Telephone: 




GENERALE 

ELECTRONIQUE 

SERVICES 

68 et 76avenue Ledru Rollin - 75012 PARIS 
Tel. : 345.25.92 - Telex : 21 5 546F GESPAR 
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TRS-80 est une marque deposee de Tandy Radio-shack. 



Editorial 

Bonne annee a tous ! t 

Blen sur, vous aurlez probablement prefere lire "bon 
Noel a tous !"... ce qui auralt ete la preuve inde- 
nlable de la sortie a 1'heure, pour une fols, du nu- 
mero y. Tres bien, on recommence tout... 

Bon Noftl a tous ! ! ! 

Nous sommes beureux de penser que ces fetes vous ont 
probablement apporte un programme ou une dlsquette 
ou peut-etre meme un ordinateur... 

Ouant a TRACE, ce numero est le dernier de sa pre- 
miere annee : bon anni versa! re ! 

Ces choses dites, faisons un raplde bilan de la si- 
tuation. Dans 1' ensemble, TRACE se porte bien et . a 

en Juger par votre courrier et vos encouragement a 

toujours sympathiques, se raontre utile et apprecie. 
Nous commencons (le demarrage a ete dur toutefois !) 
a recevolr VOS articles ce qui fait que le prochain 
numero est deja tres avance (si, si !). 

Durant cette annee. des mots sont souvent revenus 
dans vos lettres : parutlon trop espacee, en retard, 
pas assez de pages, trop sur les disquettes, pas as- 
sez sur les cassettes, articles trop techniques, etc. 
Sur les deux premiers points, nous avons prls de bon- 
nes resolutions. . . qu'll ne nous reste plus qu'a te- 
nir. Sur les autres, 11 est difficile de contenter 
ohacun de vous indivlduellement, mais nous essayons 
toujours de "rectifier le tlr" en fonction de la 
moyenne de vos deroandes, et nous continuerons de le 
falre durant cette nouvelle annee. N'hesitez done 
surtout pas a nous envoyer vos articles eventuels, 
vos essais de logiclels et de materials ou meme ce 
que vous penaez du dernier livre que vous avez lu 
sur le sujet. Actuellement , le Journal "tourne" a 
90 % avee des articles lsaua de notre entourage im- 
mediat : il y a done seulement 10 % d'articles ve- 
nant de vous, lecteurs, alors qu'il pourrait y en 
avoir quatre fois plus * Certains lecteurs se refu- 
gient derriere ces paroles : "- Mais je ne suis pas 
ecrivain — ! " Si vous saviez le nombre de Jeunes au- 
teurs qui ecrivent dans TRACE... lis n'ont Jamais 
pretendu etre ecrivains mais lis ont des idees et 
veulent en faire profiter les autres l Allez, un pe- 
tit effort ! Et puis nous sommes la aussi pour lire 
vos textes et les remanier si besoln est. Vous vou- 
lez que TRACE soit un jour mensuel ? Vous le voulez 
vraiment ? Alors ne vous embarrassez pas de tels pre- 
Juges. II n'est pas insense de penser que chaque lec- 
teur de TRACE (et vous etes des mllliers !) possede 
quelque part sur papier, sur cassette, sur dlsquette 
ou meme dans sa tete, un programme, un true ou une 
reflexion qui lul a permis d'avancer dans la connals- 
sance de son systeme. De t plus, ecrire un article, si 
petit soit-il, est une experience qui permet souvent 
de formaliser et de clarifler les idees que 1'on veut 
transmettre et peut se reveler d'une aide precieuse 
pour sa propre comprehension. Alors, a vos plumes, 
et bonne annee ! 
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colonnes 
car act/sec; 



• LARGEUR PAPIER REGLABLE 

• JEU DE 96 CARACTERES DROITS ET ITALIOUES 

• EQUIPEE DES OPTIONS :- BUFFER DE CARACTERES 

EN OPTION POSSIBILITY DE CARACTERES "APL" - IMPRIMANTE SUR PIETEMENT 

ACCENTUES, SEMI-GRAPHIQUES, MATHEMATIQUES, connection • cabi. p 

INDICES. KIT INSTALLE : 320 f 



VIDEO GENIE Munis da 1» interface d 'anions Ion ■ 250 F 
■■ i'inl«rfac» d'oxtonslon > 320 F 
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Disbr ibuteur UIDE0 GENIE 


DRIVES 


MONITEURS "J 


Ganio I r II Ganle III 

PROMOTION t 

GENIE I + MONITEUR 12 ' * t 3995 FHT 
Iacrlaanto OKI 80 oicrolina ■ 2S9S FHT 

Occasions rec antes 1 

TRS-BO Model os I at III 


Drlv* TEAC 3 poucn » 40 PISTES 

SIMPLE FACE > DOUBLE DENSITE 

Drlva nu 1760 F 

OVK ALIN a?t BOITIER...2470 F 
DRIVE 5 "»Dbl« d«n».r8Q PISTES 
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Hani tour Video 
PROFESBIONNEL 
Ecron ANTI-REFLETS 
12 Pouc*>« • N/D 
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P-OV TRS-BO a>odal« I 

Cart* D*MKt«n*lon HDX-2 
C.I. • Plan* > 3B« F 

DOUBLE UP. DC DCMSITE • om>t 
lBOK »«r Brlv. aVS F 



row TRS-BO MMllI III 

noum ovons teste .t CMOTM 

Carl* CaftirolBur DC Flamw DOUBLE DCNSITE 

5 Bt B kuhi 'MICRO MAINFRAMES' 

ASSEMBLER . TCBTEE »1«S F" 



KIT Cowiat u I 
mm avoni auat 
ruw— t... HDX-4 



HUE 21 

HDX-3 ET DCPUIS 
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Z80A «o r 

BR1941 99 F 

HC14412 149 F 

WD1771 199 F 

UD1791 299 F 

HD1793 299 F 

Support* CI a voudti 



4116 10 F 

2708 25 F 

74LS244 £ F 

QUARTZ 4MIZ.19 F 

16Hhx.l9 F 

PROFFESSI0NMEL. 



0ERHYN DOUBLE LYRE 0.10 F/PIN 
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CLAVIERS EFFET HALL 

valiur muvi 1 4000 F HT.LIvr* «• COFFRCT . 
A* touch** • 10 louthii ronctlans I...20O f 
•oil 3 F la- touch* a •"■i Hail IK 

• * it • 12 V 
.......... lOO F 
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VIDEO GENIE SYSTEHE est urn -nraut d»POiet de EACA 

EMtraft de not CONDITIONS DE VENTE ■ 

Prix HT au 10 nowabrt 82 au dveart da Nantes. 

T.y.A. 18»6 X sur tout 1* ■attrlsl. 

notarial diftponibla dans la lialte des Blocks. 
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a retourner a SERVICE REPRISE - 41 route de Rennes - 44700 ORVAULT 
Nom Prenom 



Adresse 



I C.P. 



Ville 



Pays . 



Sepcifier le type d'ordinateurs 



Quant He 


Designation 


P.U.H.T. 


Montant H.I 




Imprimante Reconditionne* 


2450 






Imprimante en I'etat 


1200 






Cable de liaison 


250 






Autres 






















TOTAL HT 




PORT et EMBALLAGE : Les 
Marchandises au-dessus de 5kg 


TVA 18.6% 

TOTAL TTC F nc 


voyagent 


en Port du 


Ci'iomi fegl par cheque Q Mamiai Q 
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le magazine des utilisateurs de TRS-80 
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MESSAGE DESTINE AUX UTILISATEURS 
DE TRS 80 A DISQUETTE 

Desormais, tous les programmes 

publies dans un numero de TRACE 

et se rapportant aux TRS 80 de table 

ou a leurs compatibles 

sont regroupes sur une disquette 

que vous pouvez recevoir 
avec votre exemplaire de la revue. 



TRS-80 modele 1, TRS-80 

modele 2, TRS-80 modele 3, 

TRS-80 couleur, TRS-80 

de poche, poquettes Sharp* 

Video-Genie*, LNW* : 

si vous utilisez ou si vous 

comptez acheter un de ces 

ordinateurs, sachez que la revue 

TRACE a ete creee pour vous. 

TRACE vous fournit quatre 

fois par an des programmes, 

des astuces, de nouvelles idees 

d 'applications. TRACE est 

independant de tout constructeur, 

et vous tient au courant de toutes 

les nouveautes dans les domaines w des logiciels, des materiels et des 

peripheriques, quelle qu'en soit la source. TRACE teste pour vous, en toute objectivite 

et independance, les produits materiels ou logiciels qui vous interessent. TRACE n'est 

pas en vente chez les marchands de journaux. Pour vous abonner ou pour recevoir un 

numero, il vous suffit de nous retourner le bon de commande ci-dessous. 
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'TRS 80. Sharp Video-Genie ei LNW soni des marques deposees 



Trace a (e m6me edileur qu ORDI-5 le magazine des utilisateurs de ZX SINCLAIR 



TRACE, le complement indispensable de votre TRS-80 



Nom 

Adresse 

Pays 



BON DE COMMANDE 

a retourner a TRACE, 8 rue Saint-Marc 75002 PARIS 

Profession 



Code postal 

lenMJ de TRACE 



(NB 



Ville 
les n°* 1 el 2 sont epuises). 

dun°3D dunMD 



• Je desire recevoir le n° 3 I 
(Prix d'un n° 25 FF ; Etranger" : 30 FF). 

• Je desire recevoir la disquette d'accompagnement des n os 1 et 2 1 
(Prix d'une disquette : 55 FF; Etranger** : 65 FF). 

• Je desire m'abonner a TRACE pour 4 n° s . a partir du n° 3 D dun°4_l dun°5C 
D avec disquette (Tarif France : 270 FF ; Etranger** : 300 FF ; par avion 380 FF). 

G sans disquette (Tarif France 85 FF; Etranger** : 100 FF; par avion 170 FF). 
(Actuellement TRACE est trimestriel). Ci-jointmon reglement indispensable par cheque bancaire I J cheque postal n virement I 

•• Pout les pays amies que la France, ulilisei un vnemenl en FF compie Credit Lyonnais Pans n° 30002 00402 8401 M. Les Irais de ylremenl sont a la charge de I acheleur 
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LOGICIELS POUR TRS-80* IT VIDEO-GENIE 

ARRIVAGE DE NOUVEAUTES TOUTES LES QUINZAINES 

TOUS LES LOGICIELS FONCTIONNENT SUR TRS 80 MODELE 1 AINSI QUE SUR VIDEO-GENIE I ET 2. 
COMPTABILITE AVEC TRS-80 MODELE 3 NOUS CONSULTER 



JEUX 



DEATH PLANET | 

Jeu tfoventure . . . 270 F TTC 

ASYIUM: 

A venture ovec graphismes 3 Dim. 

Evodez-vous de fbopital psyehiatrique 

ou vous avez ete interne por erreur 

16K.K7 220 FTTC 

T80-FS1 s 

Simubleur de vol en lemps reel 

avec graphismes 3 Dim 

16K.K7 285 FTTC 

TIGERS IN THE SNOW TRS | 

Wargame simulant la batoille 

des Ardennes (Decembre 1 944) 

Pour deux joueurs ou en solitaire 

contre fordinateur 

I6K,K7 410 FTTC 

SEA DRAGON: 

Dinger un sous-marin nucleaire 

a trovers un dedate de mines 

magnetiques, de cavemes sous-marines, etc 

En surface des chasseurs 

de sous-mann vous troquent sans merci 

Jeu ovec qraphismes 

16K.K7 240 FTTC 

LASER DEFENSE I 

De vorre P.C de tir onti- missiles 
empecnez la destruction des USA. 
en abattanl les missiles ennemis. 
Animation graphique et sonore. 
16K.K7 207 FTTC 

THE BLACK HOLE i "SqUvfAU 

Jeu d'adresse avec animation 

graphique el sonore ou vous allez devoir 

combattre pres d'un Irou noir. 

Mod 1 & mod. 3 . . 185 FTTC 

TANKTK3 i 

Wargame. Botailles de chors 

sur le front russe en 1 943. 

Fonctionne selon les regies classiques 

du worgome cases hexagonales 

figurant differents types de terrain 

(monlagne, ploine, route, ville, etc) 

Possibility de voir sans etre vu 

Tient compte de nombreux parametres 

Tres belle presentation avec plon de jeu 

et jeions cartonnes, etc 

2 (Oueurs ou en solitoire contre Pordinateur 

loK, K7 315 FTTC 



DAMES CHALLENGER TRS I 

Dames rrancaises contre fordinote ur 
Plusieurs nrveaux de jeu "ETTFRANt*^ 

Joueur de Ires haul niveau. El- ■ 

16K, K7 .. 220 FTTC 

SARGON 2 K7-TRS I 

Jeu cfechecs contre fordinateur 

Portenaire de bon niveou. 

16 K, K7 285 FTTC 

SPACE SHUTTLE : 

Simulateur de pilotage 

de la navelte spaliafe omencoine 

Fonctionne en temps reel Graphismes 

16K.K7 170FnC 

LES ENVAHISSEURS : -j^n^S 

Delendez la Terre contre z 

les hordes d'envohisseurs extra- terrestres 
qui vous attaquenl en rongs series 
Animation qrophique et sonore. 
16K.K7 110 FTTC 

ROBOT ATTACK (Big Five Software) 
Eliminez tous les dangereux robots 
qui ont envahi la station inferplanetoire 
Attention oux murs electrifies 1 
Tres belle animation graphique, 
sonore et poHonle. 

16K, K7 168 Fnc 

COSMIC FIGHTER (Big Five Software) 
Aux commandos de voire vaisseau spatial 
orme de canons laser vous devez 
defendre la Terre contre des vagues 
successives de plusieurs types 
d'envohisseurs extra-qolactiques 
16K.K7 168 FnC 

SUPER NOVA (Big Five Software) 
Vous naviguez dons Tespoce encombre 
des debris crura giopntesaue eloile 
oyanl explose. Evitez ces debris 
ou detruisez-les 

Animation qraphique el sonore. 
16K.K7 ,,... 168 FHC 

METEOR MISSION 2 
(Big Five Sofrwar) 

Allez secourir les astronautes en detresse 
sur urve planete entouree 
cfun reaoutable anneau aasteroYdes 
Superbe animation qraphique et sonore. 
16K.K7 168 FTC 

ATTACK FORCE (Big Five Software) 
Derruisez les vaisseoux extra-lerreslres 
ayant envahi une ville de la Terre. 
Necejsite beaucoup de reflexes 



et de toctique 

Animation graphiques et sonore 

16K.K7 168 FnC 

DEFENSE COMMAND 

[Big Five Software) 

Proteqez les depots de corburont 

de laTJotte galactique contre les attaques 

des envahisseurs qui cherchent a voler 

vos precieuses reserves. 

Animation qrophique et sonore 

16K.K7 168 FnC 

STELLAR ESCORT (Big Five Software) 

Partez 6 faltaque des envahisseurs 

extra- galoctiques. 

Animation graphique 3 Dim el sonore. 

16K, K7 168 FnC 

ARMORED PATROL I 

Baloille de chars ovec graphismes 3 Dim 

I6K.K7 245 FnC 

MATTIX:i£L«^£l!i 

Aqreable jeu de reflexion contre lordinateur 

16K.K7 90 FTTC 

GALAXY i 

Jeu de strategic. Simulation de conflit 

entre plusieurs systemes stelloires. 

Vous commartdez une armada de 

vaisseoux equipes cfarmes devastatnces 

e' deve? dimmer celles des ennemis. 

Jusquo 20 joueurs simultanes 

ou en solitaire contre Cofdinoteur 

16K.K7 185 FnC 

PANIK : 

Les Mzors ont envahi lo Terre. 

Vous seul ovez survecu, mats ill vous 

traquent et ont reussi a vous cotncer 

dans un de leurc centres adrrtinistratifs 

(un ensemble complefement fou 

tf etaqes relies por des echelles) 

Peut-etre parviendrez-vous encore 

une few a leur echapper en leur tendont 

des pieges ? Belle animation graphique 

et sonore. 

.6K,K7 295 FTC 

VOYAGER 1 : 

Jeu de role ovec graphijmes 

en 3 dimensions. Dans un vasle vaisseou 

spatial (1 44 pieces, 4 niveaux), 

troquez et elrminez les robots envahisseurs 

equipes cformes redoutables. 

Pour plusieurs joueurs ou en solitaire 

contre fordinoteur 

16K, K7 185 FnC 



UTILITAiRES ET 
PR0FESSI0NNELS : 



EDITOR-ASSEMBLER PLUS 

(MICROSOFT) 

Outil de base pour programmer 

en lanqage machine. Le plus puissant 

des editeurs- assembleurs en version cassette 

Comporte un debugger pour 

la mise ou pom! des proqrommes 

16K,K7 370 FTC 

32 K, Dwk 495 FnC 

BUGOUT / PRO : 

Ulilitaire pou' la mise ou point 

de programmes en langoge machine 

execution en pas a pas, amchoge 

et modification de lo memcHre. 

des registres du Z-80. etc 

1 6K, K7 580 F nC 

DISASSEMBLER 1 I 

DesassembleurZ-80 Produil un progromme 

source qui peul etre utilise avec uri 

Edileur-Assembleur 

16K, K7 195 FnC 

STOPPER-TRS : 

Ulilitaire pour la mise ou point 
de programmei en Bosk execution 
instruction par instruction, exomen et 
modification du contenu des vonobles, etc 
16K, K7 280 FnC 

ENHBAS: 

A(Oute de nouvelles lonctions an Basic 
troce de fignes sur Tecran, tn rapide 
en memoire, bronchemenl a des labels, elc 
16K, K7 450 FnC 

INFINITE BASIC : 

Ajoute 1 00 nouvelles instrvctions 
ou Bessie LEVEL 2 trace de lignes a fecran. 
manipulations sui les choines de 
caracleres, calcul malnciel (addition, 
inversion, mulripltcationV houte precision 
dons les calculi arithmetiques elc 
16K.K7 535 FnC 

COMPTABIUTE GENERAU CRESUS : 
48 K, 2 Drives 1 500 F TTC 
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LASER DEFENSE 







• TRS-80 esl une morque deposee par TANDY-RADIO-SHACK. 



NOS PRIX SONT DONNES A TITRE INDICATIF ET PEUVENT ETRE MODIFIES SANS PREAVIs 
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31, bd des Batignolles 
75008 Paris 



21 bis, rue de Valmy 
59000 Lille 



m (20)57.88.431+) 
Parking assure Od de I* Libert* 



Tel. ; 522 70.66 (+). Telex . 280 902 F 

Metro Rome Place Ckhy 

Parking assure au 43 bts, bd des Batignolles 

ouvFjrt sans nnowtirTioK txi lunoi mj samch dc • h jo « i» h » ilvmx 13 1 M roun 

mm. MTMi • I'EXPotnunoH.njiTt rw cmmtjponmike ■ MM uasusc caute visa 
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LIBRAIRIE 

POUR 

TRS-80* 

ET 

VIDEO-GENIE 

MACHINE LANGUAGE DISKI/0*_ 
OTHER MYSTERIES: nOLWEaU 

Pour Modele 1 et Modele 3 Tool sur 
la control© des disquettes en longoge 
mochine Lecture/ecriture d'une piste, 
dun secteur, etc Utilisation des routines 
des DOS. TRS DOS, NEWDOS, LDOS 
268 pages 345 F TTC 

THE BOOK Vol 2 ■ 

Los routines tf entree/sortie de lo ROM 

ecran, davier, cassettes 

1 40 pages 1 55 F TTC 

LE MANUEL D'UTILISATION 

DUDOfll 

Conceme TRS DOS (Tandy) et New-Dos 

Plus (Apparal), les commandes, 

les ufililaires. etc 

90 poges en francais 95 F TTC 

DISK INTERFACING GUIDE : 

Lo programmation des formotages, 

lectures el ecritures sur disquette 

en longage mochine, acces disque 

sans uliliser le DOS Liste des commandes 

du conlrdleur de disques, etc 

55 pages 75 F TTC 

TRS-80 DISK & OTHER MYSTERIES : 

Tout sur lea disquettes du TRS-80 
architecture du directory, organisation 
des lichiers. commenl recuperer des 
donnees ou des programmes sur disquette 
obimee. elc 1 30 pages .... 205 F TTC 

MICROSOFT BASIC DECODED 
& OTHER MYSTERIES: 

Toules les routines de la ROM uhlisobles 
pour programmer en langage machine 
adresse, contenu des registres, etc 
Orgonisa lion et deroulement d"un 
progromme Bask, oil it commence, ou 
il stocke ses donnees. etc 
310 pages 270 FTTC 
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TRS-80 ASSEMBLY LANOUML 

SUBROUTINES : NOUVEAU 

Une collection de routines, simples 6 utiliser, 
pour voire TRS-80 (mod I et mod 3), ou 
voire Video-Genie. Chaque routine est 
expliquee de (aeon Ires deloillee crvec 
schemos de lonchonnemenl Exemples 
Tri dun vecteur, lecture/ecriture cassette, 
deplocemenl a"un poinl sur fecron, 
addition et soustnxtion, lecture/ ecrilure 
disquelle, hardcopy ecran, etc.. 
En tout 65 routines utiles, puissontes el 
Ires rapides. 232 pages . . 435 F TTC 

BASIC FASTER AND BETTER 
8. OTHER MYSTERIES : 

E norme rec uei I de " I rues" d e prog ra mma tion 
de haul niveau i slnngpocking, line packing, 
etc 290 poges 290 F TTC 




THE CUSTOM TRS 

& OTHER MYSTERIES : 

Tous sur le hardware du TRS-80 
Nombreux montages pour ameliorer 
voire TRS ; haute resolution grophiaue, 
inversion video, ma|uscules/minuscules, 
commenl foire de la musique, etc 
330 poges . 295 FTTC 
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THE ALTERNATE SOURCE Vol 1 : 

Recueil des meilleurs articles (programmes, 

trues, elc.) de la revue The Altemale 

Source, specialisee TRS-80. 

longoge mochine, Basic, Basic el 

langage mochine melanges 

Au sommaire ie BOOTSTRAP, Irucs pour 

un sysleme avec un seul dnve, 

commenl melonger Bosk el 

longoge mochine, generation 

de DATA, elc 

295 pages 210 FTTC 



THE ALTERNATE SOURCE VoL 2 : 

Suite du Vol I i le TRS pocket, 

recherche des nombres premiers, 

Irucs sur le NEW DOS-80 generoleur 

de cross-references pour programmes 

en Basic, etc_ 

370 poges 230 F TTC 

TRS-80 GRAPHICS FOR 

MODEL land MODEL 3 (Byte Books): 

Tres bel ouvrage obondamment illustre sur 
le graphisme TRS-80/SET el RESET, POKE, 
longage machine, etc 
290 poges 1 75 F TTC 

TRS-80 ASSEMBLY LANGUAGE 

(Prentice-Hall) : 

La programmation en longoge machine 

sur TRS-80 190 poges 145FTTC 

TRS-80 Interfacing Book 1 t 

Commenl (oire communiquer le TRS-80 
avec son envtronnemenl convertisseur 
D/A, etc. 1 90 poges 1 1 5 F TTC 

TRS-80 Interfacing Book 2 : 

Encore cfoulres circuits tf interlace 

250 pages 1 1 5 F TTC 



LES MATERIELS : 



EXCEPTIONNEL 



VIDEO-GENIE 

+ Monit eor Video vert 1 2 

(ensemble tolalemenl compati 
TRS-80) 



3995 FTTC 



INTERFACE DEXTENSION 

VIDEO-GENIE 

AVEC 32 K RAM 3500 F TTC 

DRIVE 

(lextew/ewegijrreur 

de disquettes) . 3800 F TTC 
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Je desire recevoir gratuitemenl le catalogue SIVEA 
(maieriels, logicialt, |eux, Itvre: et revue*) 

Norn 
Adresse 



SIVEA ■ 31, Bid des Batignolles • 75008 Pons 

~rTT " bon"de commande - 

Retoumev a : SIVEA S.A. - 3 1 , Bd des Batignolles 75008 PARIS 



Nom 
Adreue 

Vill. 

Code Poilol 

Pay. 



Pf«nom 



Burcau Dnlr»bui«uf 
Tilaphon* 



Quanlll* 


DESIGNATION 


PRIX UNIT 


PRIX TOTAL 


































MODE DE REGLEMENT 
Cheque boncairt joint D 
CCP |oim C 
Mondol lellre (Oinl D 


TOTAl 






Porticipolion porl «i •mballage 
Voir ousti ci dcnoui •* 220 F 


+ 30 F 


Conlre-Rembourwmenl + 30 F 
(France seulemenl) 




Elronger el DOM TOM + 30 F 




Conlre-Ren 


ibounement D 


TOTAL 





FRAIS DE PORT ET D'EMftAUAGE 

Ajouiof 220 f pour tout* commonde comportont, pour tout ou pome d« orticW. -»k 
qwe unitt c*nlfcl«. floppy-disk, imprimanii. mo*\iteur vid»o, popi«r pour impnmont* 
Tronjpofl par wvice eitpre.i ov« amironc* compm« (Cono. DOM-TOM, •ircmgef 
no«» con.ultor par telepKone ou courner »n it cot) 
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de TRACE 

vous souhaite 
une 

BONNE 
ANNEE 




# 



*• 



pour 



SUPERSOFT 

TRS-80 
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GRAF transforme votre impri- 
mante LINEPRINTER VI en 
table a dessin de 
65536 points. GRAF fonc- 
tionne en ajoutant des com- 
mandes au BASIC DISK. Sim- 
ple a utiliser, performant. 
Utile pour tracer des courbes, 
faire du graphisme. 
MOD I DISK 309 F 

GESTCO gere un compte ban- 
caire personnel 1000 a 
2000 Mvts. Calcul du solde. 
Liste ecran, imprimante. TRI 
sur code ou libelle. 
MOD I DISK 290 F 



2LIST structure vos program- 
mes avant la sortie ecran ou 
imprimante, sans modifier 
I'espace memoire. ZLIST 
espace chaque mot cles, 
idente les FOR-NEXT, IF ELSE. 
Tres utile pour la mise au point 
de vos programmes. 
MODI K7. DISK 199 F 



UTILDIR memorise a votfe 
place le contenu de 80 dis- 
quettes. Ne cherchez plus un 
programme. UTILDIR sait oil il 
se trouve. 
MOD I DISK 290 F 



GESTION de stocks. GESTION comptes clients pour Modele I, 

II, III, de 1000 a 2000 fiches. Standard ou sur mesure. Nous 

consulter. 

• Trademark of Tandy C° 



Retourner a : M. H. POSSARD - TABANAC - 33550 LANGOIRAN 

b (56) 67.29.61 

Je d&sire recevoir une documentation d6taiil6e sur... 

NOM : Profession : 

Adresse : Code postal : 

Ville : Telephone : 



Cette augmentation de memoire 
permet a ce pocket des program- 
mes plus muscles. 

Entierement compatible avec 

I'imprimante et I'interface K 7. 

Extension integree dans le boitier. 

Modif. physique par nos soins 

exclusivement. 

Garantie 1 an. Reprise des 

garanties en cours. 



DETAILS COMPLEMENTAIRES 
APPORTES PAR LA MODIF. 

* possibilites fichiers nettement ameliorees, 
overlays plus importants. 

* traitements optimises beaucoup plus 
rapides 

* utilisation possible de 2 magnetophones 
simultanes sans modification comple 
mentaire. 

* alimentation : piles / secteur ,' accus ou 
batterie auto. 

* affichage et impression programmable 
(regloge du contrasted 

* manuel d'utilisation en francais, largement 
documente. 

* systemes d'entrees/soriies universels : 
connection video, modem, carte secteur 
et mini synthetiseur 

" retour de votre PC 1211 en Rec par 
nos soins 



-* 



Faites parvenir votre PC 1211 seul, avec votre reglement 
de 1 500 F TTC en cheque ipas d'envoi comre remboursemenll a 
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[E^BOuHsoit 

II .. INTERFACES •■ * ■ * ' 

9, rue de Lalande 

33000 BORDEAUX Tel. (561 91.55.1 



N° PC 
NOM 



Jolndra cart* da 
vlaita / adrana 



V 



LES GRAPHIQUES 
SUR TRS 80 




m 



Envoyer ce con accompagne tie votre regtemeni a EDITIONS DU P.S.I, ou a psi. Benelux 



Je desire recevoir exemplaires du volume 

LES GRAPHIQUES SUR TRS 80 au prix unitaire de 82,00 FF 
(630,00 FB) taxes, port et emballage compris (par avion : 
ajouter 8 FF (75 FB) par livre). 



TOTAL 



Editions cHi P.S.I. 

41-51, rue Jacquard 

BP 86 - 77400 Lagny-a/Marne 

Telephone (6) 007 59 31 



NOM 



PRENOM 



P.S.I. BENELUX 

S, avenue da la Ferme Rose 

1180 Bruxelles 

TaMphone (2)345.08.50 



Codeposl I I I 
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Nous avons recu quelques lettres dans lesquelles les 
lecteurs nous disent : "le programme de la fusee pe- 
dagogique ne fonctionne pas"... ou bien : " - donnez 
nous les modifications concernant le programme de 
gestion des articles"... Compte tenu du fait qu'une 
double erreur est tou jours possible et jusqu'a preu- 
ve du contraire, notre position actuelle est la sui- 
vante : la liste des programmes publies est directe- 
raent issue d'une imprlmante reliee a un TRS80 modele 
1, ^8K de memoire, deux doubles disquettes. 
Les programmes suspects ont ete essayes et re-essayes 
par differentes personnes et ne presentent aucune des 
anomalies decrites (ce n'est pas pour vous faire de 
la peine, mais c'est strictement exact !). Ce que 
nous savons par contre, c'est que le Video Genie pre- 
sente des reactions legerement differentes quant a 
l'affichage (mode 32 caracteres par ligne notamraent ) . 
Naturellement, nous ne doutons pas de votre bonne foi, 
mais rappelez-vous tou jours que dans un programme, 
la moindre virgule ou le moindre point virgule a son 
importance... N'oubliez pas d'utiliser le contrSle 
de checksum decrit dans le nunero 2 de TRACE. Ceux 
qui possedent des unites de disques peuvent egalement 
se procurer la di3quette TRACE regroupant les program- 
mes des numeros 1 et 2. Essayez aussi d'etre compre- 
hensifs - nous ne lison3 pas (encore) dans les boules 
de crlstal ! - et plutot que de nous dire "tel pro- 
gramme ne fonctionne pas...", donnez-nous un diagnos- 
tic le plus precis possible ! Merci . Mais avant tout.. 

Des excuses ! 

* Sur certains numeros 3 de TRACE, les pages 16 et 
17 sont inversees et meme parfois - nous signale-t- 
on - a l'envers ! Ainsi sur la plage, il est plus fa- 
cile de lire a deux... Ah les vacances ! 

* Dans 1' article de Frederic Mora, page 38 colonne 
de droite, la ligne 100 doit se lire : 

100 DATA 178, 183, Ifl, 26, 21, 21, 21 152, 137, lit 



Pour tous les gouts . . . 



- Par rapport aux reactions d'autres lecteurs, ne 
donnez pas trop de programmes "serieux pour la ges- 
tion general" (je trouve que c'est souvent "rasoir' 1 
mais je ne suis pas trop sectaire ! ) . De bons jeux , 
c'est tout aussi bien. 



Quant a la periodicite de la revue, je ne pen3e pas 
qu'une parution mensuelle soit souhaitable : un mols, 
c'est souvent bien court pour profiter d'artlcles in- 
teressants. (G. Grandpierre) 

* C'est bien vrai <;a ! Voila qui amene de l'eau a 
notre moulin... Comme nous le disions deja, ce sont 
les lecteurs qui font la revue : les articles que 
nous recevrons, s'ils sont dignes d'interets, seront 
publies qu'ils soiertt "serieux" on non. Et si nous 
en recevons beaucoup, peut-etre qu'un Jour... 



Avis de recherche... 



- Connaissez-vous de vrais programmes de communica- 
tion qui permettent de dialoguer avec d'autres ordi- 
nateurs que les TRS et qui effectuent la numerotation 
automatique, la sauvegarde sur disquette de ce qui 
est recu de la ligne, le decrochage automatique... 
Ce genre de programme existe pour Apple ! 
(J.M. Ziegler) 

* En France ou aux Etats-Unls 7 Qui connait cette 
petite merveille ? 



Question d 'emballage .. . 



- Comment faire voyager une disquette par la poste 
pour qu'elle n' arrive pas en miettes ou effacee 7 
Quel est 1 'emballage a trouver 7 (M. Brem, Paris) 

* La disquette etant relativement souple, il suffit 
en principe (a moins que le facteur ne passe sous un 
50 tonnes), de l'entourer d'un carton rigide (mainte- 
nu par un ruban adhesif pour l'ernpecher de glisser) 
ou de la placer dans un document si ce dernier at- 
taint 5 a 10 millimetres d'epaisseur. Pour ce qui est 
de l'effacement et bien que le probleme ne se soit ja- 
mais pose en ce qui nous concerne, la disquette pour- 
ra etre entouree d'un papier metallise. On trouve aux 
Etats-Uni3 un emballage "special disquette" leger et 
tres rigide, etudie pour ce genre de voyages... Qui 
nous fera la surprise de nous apprendre que l'on en 
trouve aussi en France ? 



Mais de quel modele s'agit-il ? 



- Un programme pour modele 1 ne marche pas forcement 
pour modele 3, exemple "Trace pas-a-pas en BASIC", 
ne serait-ce qu'a cause du OUT 0F8H au lieu de LD A, 
(37E8H) et LD (37E8H),A. Le modele 3 se repand de 
plus en plus et il serait temps de preciser systema- 
tiquement dans les articles de quel modele 11 s'agit. 
... (L. Martin, Modane) 

* D' accord, nous prenons bonne note et tacherons d'y 
veiller a l'avenir (et pourquoi ne pas commencer tout 
de suite ?). De plus nous nous efforcerons au travers 
d'artlcles, de donner au lecteur le maximum d 'elements 
pour qu'il puisse transposer facilement sur sa confi- 
guration un programme ecrit sur une configuration 
differentes, comme par exemple (TRACE numero 2) 1" ar- 
ticle de J.L. Berardo sur les differences entre mo- 
deles 1 et 3) . Par contre, nous ne pouvons publier 
systematiquement les corrections a apporter pour cha- 
que cas particulier (modeles 1 et 3, Video Genie, 
LNW, poquette, version cassette, disquette, ete ... ) 
a moins bien sur, que vous ne souhaitiez voir votre 
revue preferee devenir semestrielle ! 
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Pas de Pascal en France ?? 



- J'ai lu avec beaucoup d'interet votre article sur 
le Pascal UCSD mais je n' arrive pas a me procurer 
ce logiciel aupres des revendeurs fran?ais, meme ceux 
qui en font la publicite dans votre numero 1 . . . Quel 
est le nom et l'adresse du producteur ? Certains qua- 
lifient ce produit "d'exotique" . Que faut-il entendre 
par la ? Fonctionne-t-il vraiment sur le TRS80, mo- 
dele 1 ? (P. Dupin, Montpellier) 

* Ce logiciel congu a l'universite de San Diego en 
Calif ornie, a ete adapte au TRS80 et est vendu aux 
Etats-Unis par FMG Corporation, P.O. Box 16020 Fort 
Worth, Texas 76133, societe a laquelle vous pouvez 
vous adresser en cas d'insucces. Mais tout n'est pas 
perdu : les revendeurs qui nous lisent et ont ce pro- 
duit en stock seraient sympathiques s'ils nous le 
Taisaient savoir . . . La qualification d'exotique de 
ce logiciel est probablement due au fait qu'il est 
implante a partir de l'adresse 4000H et qu'il reste 
peu de memoire disponible a 1 'utillsateur pour ses 

propres programmes (n'oublions pas que la ROM BASIC 
occupe 12K qui sont pratlquement inutilises en Pas- 
cal). Par contre, nous pouvons vous assurer que ce 
logiciel tourne parfaitement sur le modele 1, et 
qu'il constitue un bon outil pedagogique pour celui 
qui veut se familiariser avec ce langage . 



Le3 minuscules en standard ? Comme c'est bizarre ! 



- Je suis possesseur d'un modele 1 achete en mars 82 
et j'ai remarque que les caracteres minuscules etai- 
ent affichables a l'ecran en "pokant" leurs codes 
ASCII dans la memoire d'ecran... 
(M. Malllet, Vllleneuve d'Ascq) 

* Tres interessant ! Nous avons effectivement appris 
peu apres votre lettre, que Tandy avait raodifie (tou- 
jours dans le plus grand secret ! ) le circuit impri- 
me du modele 1 en commencant par remplacer les 7 me- 
moires 2102 (7 fois IK bits) par 2 raemoires 2114 (2 
fois 1 /2K octets). Cette economie produit un "effet 
de bord" tres appreciable puisque la memoire video 
se trouve par la meme occasion dotee d'un huitieme 
bit l'autorisant cette fois a afficher les minuscu- 
les en standard. II y aura-t-il d'autres decouvertes 
a faire ? 



Precisions . . . 



- Comment est interprets le "SET (X OR Y,Y)" de la 
derniere ligne 10 en page 26 du numero 2 de TRACE, 
et surtout pourquoi ? 

Que signifient FPA1 et RFPA (page 46, meme numero) 
dans 1 'article "differences entre modeles 1 et 3" 7 
(L. Martin, Modane) 

* Un "point" graphique est determine par ses coor- 
donnees X et Y. Dans le cas de la ligne ci-dessus , 
la coordonnee X sera le resultat obtenu par le 0U 
logique (OR en anglais) entre X et Y (X OR Y), et 
la coordonnee Y est conservee telle quelle. Pour- 
quoi ? Hum. Eh bien . . . le hasard fait souvent si 
bien les choses, et les choses les plus courtes sont 
souvent les plus longues a expliquer. 
FPA1 designe une zone memoire de 8 octets utilisee 
comme accumulateur pour contenir les nombres flot- 
tants. En modele 1, elle est situee a partir de4ilDH. 
RFPA quant a lui, designe la double paire de regis- 



tres BC et DE du microprocesseur. Pour plus de ren- 
seignements, se referer au livre cite dans l'article 
ainsi qu'a "Microsoft BASIC decoded" dont il est ega- 
lement question dans le raime numero de TRACE. 



. . . et impreclsions ! 



- Vous signalez que CLEAR annule DEFINT. J'ai ega- 
lement constate que DEFINT annule DIM. Je crois que 
cela ne figure pas dans le manuel . D'autre part, en 
enregistrements de longueur variable avec TRSDOS, je 
ne peux fixer explicitement la longueur a 256 octets 
dans un OPEN. Bizarre, non ? (J. Weill, Velgne) 

* Prenons le probleme a l'envers : cela ne semble-t- 
il pas logique de definir d'abord le type d'une va- 
riable avant de la dimensionner ? En realite, votre 
DEFINT n'a pas annule votre DIM. Une preuve : 

10 DIM A ( 100) 
20 DEFINT A 
30 A( 90)= 1234 

Un RUN donne effectivement "BS ERROR IN 30" et c'est 
normal, car en fait, A(90) ne concerne plus le ta- 
bleau defini en ligne 10 (tableau simple precision) 
mais le tableau que nous avons defini ENTIER en li- 
gne 20 et qui, lui, n'a pas ete dimensionne . II suf- 
fit de remplacer A(90) par A! (90) pour s'apercevoir 
que le DIM n'a pas ete annule. On peut aussi rempla- 
cer A( 100) par A%< 100) en ligne TO pour obtenir le 
meme effet . Vicieux, hein ? 

Votre second probleue s'explique par le fait (non 
documente , helas !) que la longueur des enregistre- 
ments est probablement definie en memoire sur un seul 
octet (valeurs a 255), et la valeur 256 est done 
refusee car elle necessiterait deux octets. En ce 
qui concerne la valeur (qui est absurde dans un tel 
cas), elle est souvent conslderee en informatique, 
comme la valeur 256... Ainsi, dans la commande OPEN, 
il suffit d'omettre le parametre de longueur ou de 
lui donner la valeur zero qui elle, est acceptee ! 



Modifications materielles 



- Sur le modele 1, est-il possible de remplacer avan- 
tageusement le Z80 d'origlne par un Z80A ou Z80B ? 
Y-a-t-il des modifications autres a apporter dans ce 
ca3 ? Peut-on ameliorer le CLOAD du cassettophone sur 
les anciens modeles 1 (difflcultes pour trouver le 
volume correct) ? (J. Langlet ) 

* Remplacer le Z80 d'origlne par un modele A ou B 
n'apportera aucune amelioration dans les performan- 
ces si vous ne modifiez pas egalement la frequence 
d'horloge qui pilote le microprocesseur. Les Z80A et 
B sont dits "rapides" car lis peuvent accepter des 
frequences d'horloge plus importantes que le modele 
courant . II existe differents moyens d'augmenter la 
frequence d'horloge (tout en respectant aussi son 
"facteur de forme") mais, au dela d'une certaine va- 
leur, des problemes d'acces aux memoires peuvent sur- 
venir si celles-ci ne sont pas suffisamment rapides 
(comme pour le microprocesseur, il y en a de dlffe- 
rentes categories). Dans tous les cas, et compte tenu 
des differents modeles de TRS et de chassis d' expan- 
sion, cela demande une bonne dose de courage et de 
perseverance pour franchir sans problemes le cap des 
2,66 Mhz (gain de 50 %) ! 

La meilleure solution a notre avis, pour ameliorer 
les problemes de lecture cassette est de se procurer 
le kit Tandy qui est d'une installation facile et qui 
donne des resultats tres convenables . 
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La societe IDEM qui annonce son entree dans le monde 
de la micro-informatique, est particulierement orien- 
tee vers le TRS80. Lea premiers produits annonces 
sont : Pascal-80 (nouvelle implementation du langage 
Pascal sur TRS) ; DOSPLUS (un nouveau systeme d' ex- 
ploitation de disquettes) ; 80-GRAFIX+ (un generateur 
de 128 caracteres programmables donnant une resolu- 
tion graphique virtuelle de 381 x 192 (modele 1) ou 
512 x 192 (modele 3) ; GRAFYX SOLUTION (carte haute 
resolution (vraie) de 512 x 192 sur modele 3). 

Un catalogue de vente par correspondence est en cours 
de preparation et l'ouverture d'une boutique a Paris 
est en pro jet . 




Tandy qui a annonce au Sicob la disponibilite du mo- 
dele 16 en France pour la fin septembre vient de re- 
pousser la livraison de la version multi-utilisateurs 
a Janvier 83. Le logiciel de base de cette configu- 
ration, derive du systeme d 'exploitation Unix, sera 
fourni par Charles Rivers Data System. Rappelons que 
la version de base de cet ordlnateur (avec 1 disquet- 
te 8 pouces) est de l'ordre de 15000 F TTC. Les prin- 
cipales caracteristiques sont : processeur central 
16 bits 68000 (Motorola) et processeur "peripherique" 
Z80 ; compatibilite logicielle avec le modele 2 ; 
memoire centrale jusqu'a 512 K octets ; capacite mul- 
ti-postes pour un acces simultane et independant de 
trois utilisateurs ; possibility de communication 
(deux interfaces serielles RS232) directe avec de 
"gros ordinateurs" ou en reseau local (systeme ARCNET 
pouvant regrouper un maximum de 255 systemes ) . 



(Tandy France, 211-213 bd Mac Donald, 75019 PARIS) 



Encore un "compatible" TRS80 modele 1 qui est com- 
mercialise par la firrae americaine Lobo Drives Inter- 
national : 11 s'agit du Lobo MAX-80. Ce systeme de 
tres faible encombreraent ( 8 x 16 x 25 cm) est equipe 
d'un microprocesseur Z80 rapide (5 Mhz) et possede 
en standard 61 "vrals" kilo-octets de memoire-vive, 
deux interfaces serielles RS232 et une interface pa- 
rallele Centronics. L'ecran peut contenir 21 lignes 
de 80 caracteres mais une commande logicielle permet 
d'acceder au "mode TRS" de 16 lignes de 61 caracte- 
res (ou 16 de 32). Les 128 caracteres ASCII et les 
61 codes graphiques resident en memoire vive et peu- 
vent etre redefinis . Une carte optionnelle "haute 
resolution" est egalement prevue (150 $). Le clavier 
est muni de 76 touches (dont pave numerique et 1 tou- 
ches de fonctions). MAX-80 contient bien sur une hor- 
loge temps reel mais dont 1 ' heure est maintenue par 
une batterie rechargeable. Et ce n'est pas tout ! 
Le systeme est aussi capable sans apport exterieur, 
de piloter des disquettes 5 et/ou 8 pouces, simple 
ou double face, simple ou double intensite, ainsi 
que des disques Winchester. Cote logiciel, nous trou- 
vons bien entendu le fameux LD0S (dont Lobo est l'i- 
nitiateur) mais aussi CP/M. Selon le constructeur , 
les logiciels deja developpes sous TRSD0S ou CP/M 
sont reconductibles sans conversion de format. En 
conclusion, un produit a surveiller de tres pres, 
d'autant plus que son prix (800 $ 3ans moniteur vi- 
deo) lui donne une tree bonne place sur le marche . 
A quand sa venue en France ? 



! Lobo Drives International, 358 S. Fairview Ave, 
Goleta CA 93' '7, USA) 



Pentasonic commercialise un ordinateur en kit tres 
interessant pour ceux qui veulent construire eux- 
memes petit a petit et a moindre frals leur ordina- 
teur : 11 s'agit -du PR0F-80. Le circuit imprime nu 
d'un excellent aspect, est vendu 617 F TTC avec les 
plans de montage (precisons toutefois que la docu- 
mentation est tres "technique" et s'adresse a un pu- 
blic competent en la matiere). Cette carte contient 
un interpreteur BASIC Microsoft et peut accepter jus- 
qu'a 61 K octets de memoire vive (le premier bloc 
de 16K pouvant recouvrir la memoire morte pour des 
applications CP/M par exemple). La Vitesse de l'hor- 
loge CPU peut etre comrnandee par programme (de 1,8 
a 1 Mhz). Deux sorties video 3ont prevues pour un 
moniteur a video composite ou a signaux de synchro- 
nisation separes. Les interfaces cassettophone , Cen- 
tronics (parallele) et serie (RS232) sont egalement 
presentes ainsi qu'un couplage de une a quatre unites 
de minidlsquettes . La conception de ce systeme d'ori— 
gine francaise, est telle que celui-ci peut accepter 
directement les logiciels standards developpes sur 
TRS80 modele 1, Video-Genie ou LNW (cassette ou dis- 
quette). Un circuit imprime de clavier est disponi- 
ble aupres de cette societe qui peut aussi fournir 
tout ou partie des composants necessaires a cette 
realisation (alimentation, coffret, etc...) Les ex- 
tensions prevues sont la carte CP/M, le doubleur de 
densite (PERCOM, deja commercialise) et la carte hau- 
te resolution couleur. Cette derniere que nous atten- 
dons avec impatience (...!) serait un ensemble auto- 
nome qu'il serait egalement possible de raccorder 
sur le bus du TRS80 et qui pourralt attaquer soit le 
moniteur standard (noir et blanc avec teintes degris) 
solt un recepteur couleur muni de la prise Peritel. 
Voila qui transformerait singulierement notre bonne 
Therese ! 



(Penta 16, 5 rue Maurice Bourdet, 75016 PARIS) 



SIVEA vient d'editer un nouveau catalogue de ses pro- 
duits (82/83) qui, en 3& pages, ne comporte pas moins 
de cinq cent references... et couvre lesdomaines 
suivants : micro-ordinateurs (Apple, Video-Genie, 
Xeros 820, VIC 20, Osborne, Sinclair), peripheriques 
(imprimantes, tables tracantes, interf aces . . .> , lo- 
giciels "pour programmer", "pour travailler" ou "pour 
se detendre", livres et revues. Clair et bien illus- 
tre, il est disponible gratuitement sur simple de- 
mand e . 



(SIVEA Informatique, 31 bd des Batignolles, 75008 
PARIS) 



Dans notre dernier numero, 
diminue la commercialisati 
profit de ses propres bout 
nullement, ainsi que notre 
a tort, que des contrats d 
pus par Tandy. Nous voulio 
beaucoup plus de magasins 
boutiques franchisees. La 
des autres dans le chiffre 
s'en trouver modifiee. 



nous ecrivions que Tandy 
on pour ses franchises au 
iques . Ceei ne signif ie 

phrase le laisse entendre 
e franchise vont etre rom- 
ns dire que Tandy ouvre 
"de la compagnie", que de 
part respective des uns et 

d'affaires total va done 
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TRACE CLUBS 



Nous avons pense que vous seriez desireux de connai- 
tre 1' existence de quelques club3 de micro-informa- 
tique, ainsi que leurs activites. Cette rubrique leur 
est consacree. Les clubs : ecrivez-nous et faites- 
nous part aussi de vos realisations ! 



Correspondents Spirou, 30 rue Janson, 1050 Bruxelles 
En France : BP 10, 782*40 Chambourcy 



La 'BD' s'interesse aussi a 1 ' informatique ! Le club 
Spirou vous en parle et la met a votre portee... et 
il le prouve : trois correspondants ont gagne chacun 
un TRS80 et deux cents autres ont suivi une formation 
a 1 'informatique chez Tandy. 



Maisor 


des lc 


isirs et 


de 


la 


culture 


(MLO 


9 rout 


e de St 


Germain 










78860 


St Nom 


la Breteche 








(tel. 


015 54 


65) 











MATERIEL : TRS80 16k et micro-ordinateur monte en 
kit. 

BUT : amener ceux qui s'y interessent a apprendre a 
se servir d'un tel materiel ; pour certains, a con- 
naitre de plus pres le materiel, son fonctionnement 
et toucher par ailleurs 1 'electronique et les cir- 
cuits logiques . 

ACTIVITES : En 1980, construction materielle et pro- 
grammation sur ZX80 et TRS80. En 1981, initiation 
plus poussee du BASIC sur TRS80. En 1982, initiation 
et approfondissement du BASIC ; analyse des program- 
mes ; apport probable d'un micro specialise dans les 
jeux. 

LIAISONS avec d' autres clubs : MJC de St Germain 
(TRS80 et imprimante) ; Club MICR0BUS (micro-infor- 
matique soolaire de St Germain en Laye) (ZX81). 



CIM (Club informatique de Mons) 

Secretaire : Henry-Noe'l Perrin 

101 chaussee de Binche 

7000 MONS (Belgique) 

(tel. apres 18H : 065/33.71.15) 



Ce club s'adresse principalement aux utilisateurs de 
TRS80, mais tout possesseur de systeme quelqu'il soit , 
et de n'importe quel niveau, est le bienvenu. Leclub 
dispose de 800 programmes et des cours seront donnes 
ainsi que des echanges d'idees. 



MICRO- 


G.D.V. 




Secret 


aire : 


Andre Brixhe 


54 rue 


de 1' 


Eglise 


B-4710 


HERBESTHAL (Belgique) 


(tel. 


087/86 


.04.15) 



Ce club de micro-informatique beige (section infor- 
matique du groupe des radio-amateurs de Verviers et 
environs) est le plus important de Wallonie. II pos- 
sede une grosse programmatheque (pres de 1000 pro- 
grammes) et presque 300 membres dont quelques "amis 



francais" . II publie un 
d'organe de liaison entr 
ganise des conferences, 
ont deja ete experiments 
possibilites de synthese 
qui est une tentative de 
teurs des membres du clu 
d' entree /sortie .. . A l'e 
economique, reseau "MICR 
ectianges par radio... 



periodique mensuel servant 
e les membres du club et or- 
Certains montages pratiques 
s : Interface sonore avec 
vocale, le BUS MICR0-GDV 
doter les differents ordina- 
b d'une structure commune 
tude : carte RS-232 et MODEM 
0-NET-GDV" (liaison TRS-Apple) 



NOUVEAUTES "P0QUETTE" DU SICOB 



Le stand TANDY vient enfin de nous presenter offi- 
ciellement (pour la France), son second poquette, le 
PC2. Ses caracteristiques (a part un clavier diffe- 
rent et un decalage de l'affichage) sont totalement 
similaires a celles du PC- 1500 de SHARP ; ceci met 
done fin aux rumeurs du TRACE n° 2. 

Le sosie de 1 'imprimante CE-150 est aussi presente 
par TANDY ce qui presage une compatibility totale 
entre les 2 machines. 

Cependant TANDY commercialise une extension du PC2 
(PC-1500) qui n'existe pas (encore ?) chez SHARP : 
un module de memoire MEV 16k. II porte done la capa- 
cite de la machine a 17.5k ce qui autorise quantite 
d 'applications . 

Encore plus interessante est la commercialisation 
par SHARP, des la fin de l'annee, d'une interface 
RS 232C/imprimante : elle permet la connexion a tou- 
tes les imprimantes de la gamme SHARP (interface im- 
primante) en 80 ou 132 col. et a une table tracante. 
autres imprimantes, etc... (interface RS232C) . Son 
prix sera aux alentours des 2500 F TTC. 

Informations venant directement du stand SHARP : 
1' interface video (eh oui !) est en preparation ; la 
commercialisation du CE-153 (clavier sensitif 140 
touches separe) n'est plus qu'une question de semai- 
nes ; ET MALHEUREUSEMENT, SHARP ne publlera pas de 
descriptif du microprocesseur de son poquette. Ce 
sera done a 1 'utilisateur de se debrouiller pourcon- 
naitre l'assembleur de sa machine ! Et pourtant , Mes- 
sieurs de chez SHARP, vous avez tort car les adeptes 
du langage machine sont (tres) nombreux . . . 

RUMEURS plus ou molns precises : 

a) II sera possible, par commutation electronique 
(simpleraent un POKE) de "remplacer" les 1 6k de ROM 
BASIC par un autre langage dans un module de 1 6k ROM 
. . . affaire a suivre ! 

b) il sera possible toujours par des simples POKE'S 
de modifier le clavier (petite note pour les amateurs 
de clavier AZERTY...). Et de redefinir les caracteres 
de la machine et de 1' imprimante (ex : minuscules 
accentuees, c, symboles mathematiques , alphabet etran- 
ger . etc ...).* 

c) et des peripherlques, encore des peripherlques, 
toujours des peripheriques ! 

* Et nous sommes si rapides a TRACE... que nous vous 
en donnons deja le moyen dans ce meme numero ! 
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essai materiel. 





Lors d'une visite de courtoisie dans un "Computer 
Center" Tandy, j'ai decouvert une Iraprimante graphi- 
que qid pour moins de 2000 F, pouvait ecrire en H 
couleurs et qui avait en sua des fonctionalites de 
"table tracante" . Vous connaissez mleux ? 

Eh regardant de - plus pres, je me aula apercu que aans 
etre identique elle avait beaucoup de points communs 
avec l'imprlmante 1 couleurs du poquette PC-2. 
C'etait en effet la meme tete d'ecriture interchan- 
geable munie d'un barillet de 1 pointes "bille" noi- 
re, bleue, verte et rouge. La duree de vie d'unepoin- 
te est mesuree en longueur d'ecriture, et oelle de 
cette imprimante est donnee pour 250 metres. Le pa- 
pier qui est livre en rouleau de 115 mm de large sur 
55 metres de long, fait une largeur double de celui 
du poquette. L'imprlmante est tres legere : seulement 
800 grammes . 

La CGP-115 ou Color Graphic Printer (reference Tandy : 
26-1192) etait deja annoncee dans le numero 3 de TRA- 
CE, avec un prix de vente estime a 250 $ ( 1700 FTTC). 
Comme le dollar augmente constamraent, la suite ne 
s'est pas faite attendre ! Lorsque je j'ai commandee, 
elle coutait deja 1995 Francs et quand cet article 
paraltra, elle aura peut-etre change de prix. Elle 
peut se connecter soit en mode parallele (7 bits) 
soit en mode serie ( RS-232 C) sur tous les modeles 
de la gamme des micro-ordinateurs Tandy, e'est-a- 
dire : les modeles 1, 2, 3, 16, le modele couleur et 
meme le terminal DT- 1 . 

La CGP-115 etant arrivee au magasin dans la matinee, 
j'ai eu l'autorisation d'effectuer des essais durant 
l'apres-midi pour en faire une evaluation. II faut 
croire qu'ils furent concluants puisque je me retrou- 
val-quelques instants plus tard, carnet de cheques 
en main pour passer la commande ! Au moment oil J'e- 
cris cet article, je vlens d'apprendre que cette im- 
primante avait ete exposee au SICOB mai3 seulement 
durant la deuxieme semalne . Par contre, la mienne 
n'est toujours pas arrivee, mais j'ai bon espoir ! 

Meme non-raccordee, l'imprlmante est capable de de- 
montrer ce qu'elle salt faire : 11 suffit de lancer 
les tests internes qui ecrivent les 96 caracteres en 
1 couleurs. Par la suite, J'ai continue mon evalua- 
tion en liaison avec un modele 3. Pour communiquer 
avec la CGP-115, on utilise l'ordre "LPRINT" sauf 
dans le cas du TRS couleur qui emploie la syntaxe 



"PRINT#i— 2". Les commandes d'impression sont de la 
forme "LPRINT CHRi(XX)" oil xx peut prendre les va- 
leurs 8 , 11 , 17 , 18 et 29. Leurs significations 
respectlves sont : recul d'un caractere, recul d'une 
ligne, selection du mode texte, selection du mode 
graphique, changement de couleur en mode texte. La 
tete d'impression se deplace, aur 96 mm (3.801 In- 
ches), suivant l'axe des "X". Celui-ci est divise en 
180 parties egales. La resolution est done de 0, 2 mm 
par pas. Pour l'axe des "Y", 11 y a un maximum de 
999 pas par commande. Quand l'imprlmante est en mode 
graphique, la Vitesse de tracage est de 52 mm/s ho- 
rizontalement et de 73 mm/s vertlcalement . 



-COURBES SINUS ET COSINUS- 




La CGP-115 accepte aussi les ordres de changement de 
couleur par LPRINT "Cx" (1 couleurs), de tallle de 
caractere par LPRINT "Sin" (61 tallies), de direction 
par LPRINT "Qx" (1 directions), de qualite de trait 
par LPRINT "Lx" ( 16 traces du trait plein au trait 
interrrompu) . II est egalement possible de tracer un 
axe gradue : LPRINT "Xx.y.z", d'imprimer du texte en 
mode graphique : LPRINT "P texte ", de creer une nou- 
velle origine : LPRINT "I", de revenir a celle-ci 
sans trace : LPRINT "H", de tracer une droite entre 
2 points soit en absolu : LPRINT D";x";y soit en re- 
latif : LPRINT "Jx,y". de deplacer la pointe a un 
point absolu : LPRINT "Mx,y", ou relatif : LPRINT 
"Rx.y". 

En mode normal (taille 1) elle permet d'imprimer un 
texte de 10 caracteres par ligne a la Vitesse de 12 
caracteres par 3econde (dixit Tandy). On peut aussi 
imprimer 80 caracteres par ligne mais avec la con- 
trainte de passer en mode graphique pour posltionner 
l'imprimante en taille 0. Cet ordre ne figure pas 
dans la documentation, mais on peut le trouver dans 
un exemple d 'application : en faisant la commande 
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suivante, on obtient le passage en 80 caracteres par 
ligne : (LPRINT CHM(18) : LPRINT "SO" : LPRINT "A"). 
L' imprimante possede touterois un Inverseur a l'ar- 
riere qui permet d'imprimer soit 40, solt 80 carac- 
teres par ligne. 



TAILLX ' » 

TYlILLE : 1 
TAILLE = 2 

TAILLE : 3 

TAILLE : 



TRILLE 



TRUCE 



nwai 



TRACE 






30uai 



4 



TRB( 



u 



3GU 



5 



T 



LE 



ILLE 



a 



RE 



v 



Lorsque la machine fonctlonne, on est surpris par 
les mouvements frenetiques du papier. En effet comme 
la tete ne peut se deplacer qu'en translation, c'est 
le papier qui monte et qui descend . Eh executant la 
commande "01" ou "03" (ecriture parallele au bord du 
papier), on n'est theoriquement pas llraite par la 
longueur du papier, quand il en reste ! 

Cette imprimante peut s'utiliser avec "SCRIPSIT" 
sans dlfflculte, d'ailleurs cet article a ete a l'o- 
rigine, frappe de cette f agon . Pour les possesseurs 
de 1' Interface RS-232 et d'une imprimante parallele, 
la CGP-115 peut etre connectee comme seconde impri- 
mante. En effet le programme "SCRIPSIT" supporte les 
deux types de connexions sans risque de conflit. 

Eh conclusion, on peut dire que ce modele d' impri- 
mante presente un excellent rapport quallte/prix et 
Je pense qu'elle rencontrera un vif succes meme au- 
pres de ceux qui ne possedent pas forcemment un Tandy . 
Le seul reproche que Je fals concerne 3eulement la 
documentation - americaine evidemment - qui est "bour- 
ree" de fautes syntaxiques et typographiques et qui 



a de nombreuses omissions. Dans le manuel de l'uti- 
lisateur fourni avec 1' imprimante, j'ai releve de 
nombreuses erreurs dans les exemples d'applications 
(le programme de la page 39 et suivantes n'en compor 
te pas moins del!) 



340 REI1«««»»»««S1NUS ET C05INUS»*«»«**«»*«»«»»«*«« 

350 LPRINT" COURSES SINUS ET C0SINUS " 

360 LPRINTCHR1I18I : "R0 .- 150. 240 .0" 

370 LPRINT"!'" 

380 LPRINT"X1, -20.10" 

390 LPRINT "HX1.20.10" 

400 LPRINT"HX0.16.5" 

410 LPRINT"HX0.-16.5" 

420 LPRINT"C0":LPR1NT"L0" 

430 B = 30:HM5:C-0sG0SUB550 

440 LPRINT"C1":LPRINT"L3" 

450 B=-100:H'80:C»0:COSUB550 

460 LPRINT"C2":LPRINI"L5" 

470 B=100!H»80:C=1!&OSUB550 

480 LPRINI"C3"!LPR1NT"L0" 

490 B=100:H=80:C=0:&OSUB550 

500 LPRINT "110. -150 "l LPRINT "CO" 

510 LPRINT "A": LPRINT" FIN " 

520 LPR1NTJLPRIMT 

530 END 

550 REM««»#«DESSIN S1N-C0S«*»»»»* 

560 A»="M" 

570 FOR1=-200T020DSTEP4 

580 S=l/B»3. 14159 

590 IF C"0THENY=1NT (S1N(S)»H) 

600 IFC=1THENY»1NT(C0S(S>*H> 

610 LPR1NTA*:I i ",";Y:A*>"D" 

620 NEXT1 

630 RETURN 



Dans sa categorle, avec 4 couleurs et ayant de plus 
des fonctionnalltes de table tratjante, elle devrait 
revolutionner a sa facon le monde des lmprimantes . 
Sa venue 3ur le marche europeen a fait un effet de 
surprise... et le pere Noel risque d'en avoir pleln 
la hotte ! Heureusement pour lui , elle ne fait que 
800 grammes ! 




.Christian Kraemer 



NDLR : Depuis l'ecriture de cet article, l'auteur a 
recu son imprimante et en est tres satisfait. 
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essai logiciel 

Le compilateur FORTRAN 

de Microsoft 



Bien que le FORTRAN soit un des tous premiers langa- 
ges de programmation (1956), 11 n'est pas demode et 
est encore couramment utilise sur les "gros" ordina- 
teurs pour le traitement des problemes scientiflques 
et techniques. Pour le3 debutants, son apprentissage 
eat plus long et plus delicat que le BASIC, mais lors- 
qu'on a bien compris les principes du BASIC, 1 'etude 
du FORTRAN est beaucoup plus facile. 



LE TRS80 - modele I ( ou III) peut travailler en Pas- 
cal, APL... et aussi en FORTRAN au moyen du logiciel 
Microsoft diffuse par Tandy /Radio Shack. Ce dernier 
comprend un edlteur EDIT, assez proche de l'editeur 
de EDTASM, un compilateur F80 qui transforme le pro- 
gramme source FORTRAN en programme relogeable et un 
editeur de liens L80 ainsi qu'une bibliotheque de 
routines specialises LIB80/REL. 



L'utilisation ne necessite qu'un lecteur de raini-dis- 
quette, mais les manipulations sont nettement simpli- 
fies avec 2 lecteurs . 



Le compilateur F80 est un programme tres volumineux 
qui evldemment, demande un petit moment pour le char- 
gement (environ «0 secondes) et 1' edit ion des liens, 
avec recherche des sous programmes en bibliotheque 
demande environ 90 secondes. Si on s 'amuse a tester 
ce produit avec un petit programme, tres banal du 
style : 

WRITE ( 1, 10) 
10 FORMAT ( IX, 'BON JOUR' ) 
STOP 
END 

on est assez decu par les manipulations et le temps 
a passer pour arriver a l'affichage du message. Par 
contre, pour des programmes bien plus longs, les 
temps de chargement sont, bien entendu, les memes . 

Done, au premier abord , le systeme ne paralt pas tres 
performant, mais il faut reconnaltre que e'est deja 
un exploit de pouvoir falre "avaler" du FORTRAN a un 
micro-ordinateur et de profiter des avantages de ce 
puissant langage comme nous allons le montrer . 



II n'est pas question ici de redonner les regies de 
syntaxe, mais pour ceux qui sont effrayes par ce lan- 
gage, 11 est lnteressant de rappeler les analogies 
et differences avec BASIC. 



- Differences : entrees-sorties (utilisation de la 
pseudo-Instruction FORMAT), operations sur les cha£- 
nes de caracteres (necessite de "passer par un ta- 
bleau"), appel des sous-programmes (noms, parametres, 
variables globales et locales...). 



- inalogl? 






BASIC 


FORTRAN 




reeta 


IF <«xpr*aaicKC>THEN<lnBtructlon> 


IFW-xpreaalon^Klnat ructions 


Siula 


G0T0<n" il llgn«> 


COT0-<rtlqueU<> 




Bouclea 


FOR --v»r> : n» TC m 


DO <aUqg#ll€>-*aC>: nl . n? 




)perateura 




. - ■ / 




Variables 
lnill^ M , 


»(r.ji 


MX, J) 






nl, n2 varlablea ou conatantea 


nl ou n2 varlablea ou 
conatantea entleraa 





L'execution d'un programme ecrit en FORTRAN est bien 
plus rapide qu'un programme interprets en BASIC, ce 
qui est la moindre des choses puisque le programme est 
execute sous la forme d'un langage machine (Z80). Par 
contre, comme 11 a ete dit, la mise au point est fas- 
tidieuse. Si ce langage etait parfait et sa mise en 
oeuvre sans contrainte, il serait uni versellement uti- 
lise. II n'exlste pas de langage universel . 

Le point fort de ce langage est la pc-ssibilite de 
constituer une bibliotheque de sous-programmes prets 
a l'emploi ce qui, d'une part facilite la redaction 
des programmes puisqu'on peut appeler slmplement des 
sous-programmes de la "bibliotheque utilisateur" et 
d' autre part permet la mise au point de petits sous- 
programmes. L'editeur de liens se charge de rassem- 
bler tous ces segments relogeables (ou translatables). 

Le langage FORTRAN F80 comporte 1 extensions particu- 
lierement puissantes parce qu'elles donnent la possi- 
bilite de tout faire : PEEK, POKE, INP et OUT. On 
peut aussi appeler de3 sous-programmes ecrits en as- 
sembleur comme des sous-programmes ou fonctions FOR- 
TRAN. 

Les exemples de programmes tres classiques illustrent 
la marche a suivre pour la compilation, la construc- 
tion du programme absolu et l'execution. 

D'abord, la suite des carres des 10 premiers nombres 
entiers (comme l'exemple choisi pour la presentation 
de BASCOM TRACE n° 3) . 

1 - Chargement de l'editeur 

EDIT 

2 - Nom du fichier pour le langage source FORTRAN a 

la demande de FILE : CARRE/FOR <Break> <Break> si 
le fichier est a creer, autrement <enter>. L'em- 
ploi de 1' extension "FOR" est obligatoire. 

3 - Creation du texte source 

*I (comme EDTASM) 

Break 

1 - Sortie de l'editeur avec sauvegarde du fichier 
source : 

*E 
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5 - 



6 - 



Compilation du programme source CARRE/FOR et 

generation du programme relogeable CARRE/REL et 

eventuellement d'un fichier du programme compile 

avec ou sans le code genere : 

F80 CARRE, CARRE = CARRE 

implicitement CARRE/REL, CARRE/LST = CARRE/FOF 

Edition de liens et execution : 
L80 CARRE-G 



implicitement CARRE/REL-G 

si on veut conserver le programme absolu : 

L80 CARRE-N, CARRE-E 

implicitement CARRE/REL-N, CARRE/CMD-E 

On reraarquera, pour les manipulations et formats des 
commandes l'analogie avec BASCOM (TRACE n° 3). 



Le fichier CARRE/FOR 



bbibb 
bb2bb 

BB3BB 
B04 0B 



NRITEO. Ill) 
1B1 F0RMATCI5X. ' — CARRES DES IB PREMIERS NOMBRES — V) 
DO 10 N-l . IB 

N2-N**2 



0050B WRITE. l,IB2i N, N2 

BBEBB 1B2 FORMATUX, IJ. IX, ' ALI CARRE DONNE 

BB7BB IB CONTINUE 

8B80B STOP 

0B9BB END 















Le fichier 


CARRE/LST 














Put 1 




























081 M 


FORTRflr. 


-80 VER. 3.34 COPYRIGHT 1978 


<C> 


BY MICROSOFT 


03200 


00700 


11 


CONTINUE 








00200 


BYTES i 


20 IBB 










03300 


00B00 




STOP 








00300 


CREATE. 


t 04 -NOV- 79 








03400 


***** 


003F* 


CD 


HL. IN) 






00400 


00100 




WWITC < 1 


101) 






03500 




0042' 


INC 


HL 






00300 


■i - < - - 


0000' 


LD 


BC. (ML) 






03600 


***** 


0043' 


LD 


A.0A 






00600 


***** 


0003' 


JP 


<»INIT> 






03700 




0043' 


SUB 


L 






00700 


***** 


0006' 


ID 


DE. <I01L> 






03800 




0046' 


LD 


A. 00 






NM 


***** 


0003' 


LD 


HL. <* 01 




00-) 


03900 




0046' 


SBC 


H 






00300 


***** 


000C* 


CALL 


(HBl 






04000 




0049' 


JP 


P. (0013' | 






eiese 


002B8 


101 


FORMAT ( 5K. '— CARRES 


PFS 


10 PREMIERS NOMBRES —VI 


04100 


***** 


O04C 


CALL 


(•ST) 






01100 




000F' 


CALL 


(•ND) 






04200 


00900 




END 








01200 


00300 




DO 10 N 


i . ie 






04300 


***** 


00AF' 


202020202020 






01300 


00000 




N2-N--2 








tfu4£]0 




0055' 


B100 








01400 


***** 


0012' 


LD 


HL. 0001 






04500 














01500 




0013' 


LD 


(N).HL 






04600 


PROGRAr 


UNIT 


.ENGTH-0037 (B7) BYTE! 






01 600 


00500 




WRITE* 1 


102) N.N2 






04700 


DATA AREA LENGTH-0032 


82) BYTES 






01700 


***** 


00 IB' 


LD 


HL. <N) 






04800 














01800 


***** 


001 B' 


EX 


DE. HL 






B4900 


SUBROUTINES REFERENCED 








01900 




001C 


LD 


HL.B0B2 






05000 














02000 




001F' 


CALL 


<»E9) 






05100 


• 10 






• INIT 


• w;: 




02100 


***** 


002 2" 


LD 


<N2).HL 






05200 


•ND 






•E9 


Ml 




02200 


***** 


6025' 


LD 


DE. «102L • 






B5300 














02300 


***** 


0028' 


LD 


HL. (+ 01 




00*) 


05400 


VARIABLES" 










02400 


***** 


B02B' 


CALL 


<■■■ 






05500 














02500 


00600 


102 


F0RMATOX. 13. IX, ' AU CARRE 


DONNE '. 116) 


05600 


N 


002E" 




N2 0830'" 






02600 


***** 


002E* 


LD 


BC. <N2) 






05700 














02700 


*•••• 


0031' 


LD 


DE. <N> 






■90M 


LABELSi 












02800 


***** 


0034' 


LD 


HL. <♦ 01 




00*) 


03900 














02900 


***** 


0837' 


LD 


A. 03 






06000 


*«i. 


0006' 




101L 8081" 


101 


003F' 


03000 


***** 


0039' 


CALL 


(•10) 






06100 


I02L 


0032' 










03100 




0B3C- 


CALL 


<»ND) 






06200 















Enfin, 
cution 
CE n" 
BASIC 
la fon 
tat es 
le "J = 
cle (1 
100 do 
pour c 



pour avoir une idee sur le gain de temps d" exe- 
, le test de Vitesse de l'essai de BASCOM (TRA- 
3) . Ce programme est tres proche de la version 
pour la boucle mais a necessite la creation de 
ction TIME pour determiner la duree . Le resul- 
t frappant : 0.55 seconde tout en conservant 
1" dans la boucle. Une variante oil cette bou- 
a 10000) se trouve dans une autre boucle 1 a 
nne 56 secondes ! On conclut immediatement que 
e test , FORTRAN est 100 fois plus rapide que 



l'interpreteur BASIC. On comprend maintenant pourquoi 
ce vieux langage FORTRAN est encore largement utilise 
et apprecie ; cependant, sur un micro-ordinateur, les 
temps de chargement compilation... sont importants, 
en outre, la longueur des programmes sources est li- 
mitee par la capacite des disquettes (Ah si les dis- 
ques durs etaient plus accessibles !).'Mais lorsqu tin 
est pris au jeu et un peu fascine par les possibili- 
ty du TRSOO - machine a tout faire - on a tendance 
a oublier que ce materiel est un micro-ordinateur. 



p«.» i 

BB IBB 
BB2B0 
0B3BB 
00400 
BB3BB 
00600 



F0RTR0N-8B VER. 3. 34 COPVRIDHT 1978 IC> BY nlCRQSOFT 
BYTES" 20186 
CREATED! 04-NOV-79) 

TD-TInE(B) 

LD BC. ill. 

JP <tINIT) 

DO IB N-l. 1BBBB 



00200 



00900 



***** 



BBB8' 
BBB9' 
BBBC' 

01100 ***** 000F- 

B12BB BB30B 10 

B1300 ***** BB12' 

B14BB ***** 0015' 

015B0 00(.B0 

Bieee ***** eaie' 

017B0 ***** BB1B' 

B1B0B ***** BB1E' 

01900 ***** BB21' 

B2BBB ***** BB22' 

0210B ***** BB24' 

B22BB ***** BB25' 

B23BB ***** BB27' 

B2400 ***** 8B28' 

B25B0 005BB 

B2GBB *--.* BB2B' 

B27BB *»— BB2E' 

B28BB ***** BB31' 

B29BB .-..- BB34' 

B3BBB ***** BB37' 

B31BB ..... 0B3A' 

B32BB ***.. 0B3D' 



LD 


HL. 1* a 


COLL 


(TIME) 


LD 


HL. (TD1 


CALL 


1«TI> 


J-l 




LD 


HL. 0001 


LD 


<N),HL 


TS-TIMEIB)-TD 


LD 


HL.oeei 


LD 


IJl.HL 


LD 


HL. <N) 


INC 


HL 


LD 


A, IB 


SUB 


L 


LD 


0.27 


BBC 


H 


JP 


P. (BB15' > 


URITE12 


101) TS 


LD 


HL, (* E 


CALL 


(TIME) 


LD 


HL. <TD> 


CALL 


C»6B> 


LD 


HL, <TS) 


CALL 


(*T1) 


LD 


DE. (IBID 



00.) 



DE. (TBI 
HL. <» 
A. 02 

1*11) 

(»ND> 

I»ST) 



ill 



B33B0 • *... BB4B' LD HL. (« 

B34B0 ***** 0043' CALL <*U2> 

03500 00G00 101 FOPMAT<2X. 'DUREE 

B3BB0 .»*.» 00/. IV 

B3700 ***** 0049' 

BJ8BB -*•** 0B4C" 

03900 ***** B04E' 

04000 .*... 0051' 

04100 0070B 

04200 ..... 0B54' 

04300 00730 

04400 »*•-* BB57' 

04500 ***** 0B5D' 

04600 ..»•* 0B5F' 

B47O0 ***** 0061 ■ 0000 

04800 

B4908 PROGRAM UNIT Lf.NGTH.B863 199) BYTES 

55000 DATA AREA LEN0TH-BB24 138) BYTES 
SIM 

B52BB SUBROUTINES REFERENCED! 
05300 

B5400 »I1 

05500 «T1 

05600 »ND 
05700 

1 VARIABLES! 



TD 



FB. 3, ' B' ) 



LD 
LD 

LD 

CALL 

CALL 
STOP 

CALL 
END 

202020202020 

0;»0 
0100 



• INIT 
MS 



TINE 
•N2 



LABELS: 
**L 



■7' 



101L 000D- 



Vers 1978, un ordinateur avec unite centrale de 32K0 
-tdisque dur * imprimante 80 lignes/minutes + lecteur 
DE CARTES 300/mn coutait environ 7000 F par mois ! 
Les programmes qui etaient ecrits en FORTRAN sont 
reutilisables sans grandes modifications. Pour l'en- 
seignement du FORTRAN, ce logiciel convient parfai- 
tement . 

En conclusion, le langage FORTRAN F80 est interes- 
sant pour 1 'etablissement de programmes performants 
en vitesse de caloul ; mais la compilation est lour- 



de, (comme en general, toute compilation avec gene- 
ration de codes translatables) , et un interpreteur 
FORTRAN n'est pas envisageable sur un micro-ordina- 
teur. Done, pour une utilisation classique, F80 ne 
remplacera pas BASIC (qui sur TRS80 a l'avantage de 
pouvoir etre interprete ou compile). Neanmoins, ce 
logiciel EDIT-F80-L80-LIB80, qui fait partie de la 
grande bibliotheque de programmes contribue certai- 
nement a la puissance du systeme TRS80. 

Claude Nowakowski 
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Librairie 



Nous avons beaucoup de livres a vous presenter cette 
fois-ci ! Tous se rapportent directement ou indirec- 
tement au TRS. En voici quelques un classes par gen- 
re et accompagne3 de quelques commentaires . 



SPECIFIQUES TRS ( ou compatibles) 



LA CONDUITE DU TRS80 


(modeles 1 


ou 3) 


Par Pascal 


Pel Iter 


Editions : 


Eyrolles 


108 pages 




Prix : 55 


F 



Cet ouvrage s'adresse a ceux qui ont deja eu un pre- 
mier contact avec l'lnforraatique (qui connaissent 
done le BASIC) et qui possedent ou envisagent d'uti- 
llser en TRS80. La premiere moitie du livre fait un 
bref survol des instructions et fonctions du BASIC 
niveau Z (non-dlsque) et se trouve done un peu redon- 
dante a notre avis, avec le manuel Tandy. Par contre, 
le chapitre suivant apporte les elements de base sur 
la programmation en langage machine et son utilisa- 
tion sous BASIC, choses sur lesquelles ledit manuel 
est plutot muet. Les possibilites graphiques sont en- 
suite brievement evoquees ainsi que 1 'utilisation du 
clavier (PEEK et INKEY$ notamment). Un court chapi- 
tre est reserve aux peripheriques (standards ou non) 
raccordables sur le TRS : extensions memoire, gra- 
phiques, sonores et autres. Le modele 3 est ensuite 
decrit en 1 (courtes !) pages et 1' ouvrage se terrai- 
ne par les annexes de rigueur et quelques exemples 
de programmes. En derniere page, un appel est lance 
pour constituer, si le nombre de reponses est suffi- 
sant, un "annuaire des utilisateurs TRS" et un ques- 
tionnaire adequat est joint a cet ef fet . En resume, 
ce livre 3'est montre un peu "leger" pour nous faire 
decouvrir "toutes les possibilites cachees du TRS80" 
dont il nous promettait la decouverte . 



LES GRAPHIQUES SUR TRS80 
Par Don Inman 
Editions du P.S.I. 
Prix : 75 F 
110 pages 



Cet ouvrage publie par Dilithium Press et traduit en 
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francais par les editions du PSI est destine a 1' ini- 
tiation au dessin graphique sur ordinateur. Si vous 
vous interessez aux techniques graphiques et d 'anima- 
tion employees dans certains jeux spectaculaires du 
TRS, eh bien . . . vous risquez d'etre tres decu par ce 
livre ! Par contre, si vous connaissez les rudiments 
du BASIC, souhaitez vous initier au dessin graphique 
et etes capable de vous emerveiller devant le trace 
d'une llgne droite ou d'un triangle... alors ce li- 
vre est pour vous ! Notez qu'il n'y a rien de mechant 
dans cette derniere phrase : comme 11 y a des gens 
qui s'extasient devant un brin d'herbe ou une fleur, 
il y a ceux qui s'extasient devant une ligne oblique 
ou un polygone trace lentement (car en BASIC) sur 
l'ecran de leur tube video... Ici , pas d'astuces a 
hurler ou de trues delirants hyper-sophistiques qui 
vous vaporisent les meninges ! Rien que du simple et 
du massif, mais e'est excellent pour vous remettre 
en memoire les rudiments de geometrie appris sur les 
bancs de l'ecole. Avec quelques simples lignes en 
BASIC niveau 2 (sans POKE s'il vous plait), on ap- 
prend ainsi a tracer des lignes de differentes in- 
clinaisons, des rectangles, a faire de l'art abstrait, 
a tirer sur des cibles d'abord stationnaires puis 
mouvantes et a tracer d 'autres figures geometriques . 
Complete par des exercices (auxquels sont associes 
les reponses), e'est un bon ouvrage pedagogique mais 
a ne mettre qu'entre des mains innocentes ! 



INITIATION AU BASIC 



LE 


BASIC UNIVERSEL 


Par 


Richard Schomberg 


Editions : Eyrolles 


Pri 


it : 55 F 


116 


pages 



Ce livre s'adresse a ceux qui n'ont jamais programme 
et qui deslrent aborder BASIC pour la premiere fois. 
II s'agit done d'un livre de base exposant les prin- 
cipales notions de ce langage vues sous un angle tres 
general, d'oii le titre . De lecture tres agreable et 
complete d'exercices progressifs, il est toutefoi3 
dommage, surtout un livre pedagogique qu'il soit par- 
seme d'un tas d'erreurs typographiques propres a Je- 
ter le trouble dans 1 'esprit du lecteur novice. 



INITIATION 


A LA PROGRAMMATION 


PAR 


LE 


BASIC 


Par Jacques Schmit 








Editions : 


Eyrolles 








Prix : 107 


F 








262 pages 











Apres quelques definitions simples et indispensables 
pouvant ae montrer de bonne augure pour le novice 
( informatique , ordlnateur, programme, etc...), cet 
ouvrage "grand format" (21 x 27) entralne rapidement 
le lecteur dans une veritable foret de listings et 
d 'organigrammes dont il peut avoir quelque mal a se 
remettre . En fait et malgre son titre, ce livre de- 
mande des connaissances prealables sur 1 ' informati- 
que et la programmation . Muni de cette base initiale, 
le lecteur pourra alors se lancer dans la pratique 
du BASIC qui est assuree ici par de tres nombreux 
exemples pratiques, clairs et vivants. 



DIVERS 



MICRO-ORDINATEURS : COMMENT CA MARCHE... 
Par Richard Schomberg 
Editions : Eyrolles 
Prix : 50 F 
81 pages 



"Ce livre s'adresse simplement aux neophytes qui se 
sentent mal a l'aise des qu'il s'agit de technique" 
nous dit 1 'avant-propos . Cet ouvrage decrit dans un 
style tres pedagogique, la constitution d'un ordina- 
teur ainsi que les organes des sens ( peripherlques > 
qui lui sont associes : la memoire, la "vue'" , l'"ouie" , 
le "toucher" ... Le logiciel trouve egalement une pe- 
tite place dans ce trop petit livre : interpreteur , 
compilateur, prlncipaux langages. Un bon ouvrage 
d'initiation a conseiller a ceux qui se posent trop 
de questions et qui veulent savoir ce qu'il se passe 
sous le capot . . . 



PROGRAMMEF 


EN 


ASSEMBLEUR 


(Z80) 


Par Alain 


Pinaud 




Editions c 


u P 


S.I. 




Prix : 75 


F 






111 pages 









L'auteur etant tres intime avec le redacteur en chef 
de cette revue... nous nous limiterons simplement a 
citer quelques extraits typiques de cet ouvrage... 
"Enfin, au nombre des sots, figurent aussi quelques 
abrutis particulierement degeneres dans la liste des- 
quels s'inscrit l'auteur, qui o3ent encore penser que 
l'assembleur est a la portee de tous" . . . "JP Hachel 
lui aussi, avait horreur des robinets qui fuient . 
Rien de plus agacant que ces POP... POP !"... 
"Etendez-vous sur un tapis (les electrons circulent 
mieux ainsi), laissez aller tous vos muscles et es- 
sayez de vous mettre en HALT pour quelques instants" . . 
"L'avantage de la methode etait evident : elle lais- 
sait a l'homme un bras libre, ce qui lui permettait 
d'en changer lorsqu'il y avait beaucoup d ' aurochs" .. . 
Alors ? C'est difficile l'assembleur ? 



-Jean Pierre du Tlllet 



PROGRAMMEZ VOS JEUX D' ACTION RAPIDE SUR TRS80 

Collection "microordinateur" 
Ed. Eyrolles 1982 
Pascal PELLIER 



Si le BASIC est un langage de programmation assez 
facile a utiliser, 11 ne se prete pas bien a la pro- 
grammation de jeux des qu'il est necessalre de visua- 
liser des mouvements rapides, de produire des effets 
sonores... Dans ce cas, il faut avoir recours au lan- 
gage machine au moyen d'un programme d' assemblage 
(ou assembleur) et la programmation devient alors 
fastidieuse . 

L'auteur propose des sous-ensembles prets a l'emploi, 
ce qui permet la realisation d'un programme comme un 
jeu de construction. Ces elements sont ecrits pour 
TRS80 ; mais, evldemment, en prenant quelques precau- 
tions (revoir les particularltes du TRS80), 11 est 
possible de les utiliser pour tout systeme de base 
de microprocesseur Z80, et meme de le3 transposer en 
codes pour d'autres microprocesseurs . II est egale- 
ment possible d'appeler ces routines a l'lnterieur 
d'un programme BASIC (ou tout autre langage permet- 
tant l'appel de tous programmes en langage machine). 

Ces nombreux petits programmes ne sont pas destines 
qu'aux jeux, mais aussi a d'autres applications. 

L'auteur a prefere ne pas utiliser des routines de 
la MEM pour etre plus rapide et pouvoir etre lnde- 
pendant des adresses specif iques du systeme. Pour 
illustrer son expose, il a realise un jeu de batail- 
le sous-marine . 

Apres avoir presente des sous programmes d'interet 
general ou de base 

- multiplication d'entiers 

- division d'entiers 

- generation de nombre pseudo-aleatoire 

- effacement d'ecran 

- affichage d'un message sur l'ecran 

- conversion binaire /ASCII 

- lecture du clavier 

- fonctions graphiques 

- trace d'une droite 

- numero d'une ligne d'ecran (a partir d'une adresse) 

- sous programmes divers de la MEM (FST18H, 2BH, 
69H...) 

il montre comment dessiner et animer : techniques de 
representation, de deplacement des graphismes suivant 
les directions principales et suivant une direction 
quelconque ; et enfin, comment controler ces mouve- 
ments par des tests. 

Les effets sonores rendent les jeux beaucoup plus 
attrayants et leur programmation est ici bien detall- 
lee en expliquant le principe de generation des notes 
de musique . 

Enfin, apres avoir decrit le jeu, l'auteur donne 
quelques conseils pour 1 'amelioration des program- 
mes de ce genre . 

En annexe, on trouve la liste complete avec tous les 
commentaires necessaires pour comprendre parfaitement 
le fonctionnement du programme . 

C'est certainement un ouvrage a conserver a la por- 
tee de la main pour reallser des programmes perfor- 
mants et beneficier au mieux des possibilites du 
microprocesseur done du miniordinateur . 



.Claude Nowakowski 
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BOGUE AVEC LA FONCTION VAL SUR TRS ( ET APPLE) 

Pour raettre a l'epreuve votre BASIC Microsoft, frappez le petit programme suivant : 

10 A$ = "1E100" 
20 B = VAL (A$) 

Au lanceraent, une erreur de debordement intervient, ce qui eat tout natureletant donnee la valeur de l'exposant. 
Mais maintenant, ayez la curiosite de lister votre programme... : le second guillemet de la ligne 10 a disparu ! 
En relancant ce programme que BASIC a eu 1 'outrecuidance de modifier sans nous en faire part, un ou meme parfois 
deux messages d 'erreur apparaissent , faisant reference a un numero de ligne inconnu du programme. 

Void 1 'explication . La fonction VAL, avant d'effectuer la conversion de la chatne alphanumerique en decimal, de- 
limite la fin de chatne (a l'endroit du second guillemet) en y placant un zero. C'est une nece3site imposee par 
la routine de conversion. Normalement, apres la conversion, le caractere detruit par le zero (qui a fort heureu- 
sement ete sauvegarde) est restitue . Seulement voila : si une erreur est detectee lors de la conversion, on ne 
revient pas dans la fonction VAL mais on se dirige tout droit vers d'edition d'un message d" erreur, en oubliant 
de restituer le second guillemet .. .D'autre part, en BASIC Microsoft, la fin d'une ligne BASIC est toujours ter- 
minee par un zero. Dans le cas de notre petit programme, apres une premiere execution, ce sont deux zeros qui ter- 
minent la ligne 10. La commande LIST qui ne cherche pas a comprendre, arrete L'affichage de la ligne 10 sur le 
premier zero rencontre. Quant a la ligne 20, la commande LIST y accede par le "lien de chaine" situe dans le tam- 
pon BASIC au debut de la ligne 10 (invisible pour l'operateur ) . Done, pas de problenie au listage. A 1 'execution 
par contre, il en est tout autrement car en fin de traitement de la ligne 10, 1 ' interpreteur qui veut passer a la 
ligne suivante, se trouve decale d'un octet (l'octet suivant etant en reallte, la VRAIE fin de la ligne 10). II 
s'en suit une mauvalse interpretation du numero de ligne et de son contenu... Pour eviter cette anomalie et obte- 
nir une erreur de debordement "propre" (mais cela ne present qu'un interet academique !), il suffit tout simple- 
ment de ne pas mettre de guillement terminal a la ligne 10 : le zero "fin de chalne" de la conversion viendra 
alors remplacer le zero "fin de ligne"... ce qui, somme toute, n'est pas genant du tout ! 

Jacques Pinto 
LA 0U LE VAL VIENT A L'AIDE... 



Quoi de plus normal que de stocker des nombres double precision dans un fichier sequentiel sur disquette et de 
vouloir les relire plu3 tard ? Essayez par exemple le petit programme suivant : 

10 OPEN "0" , 1,"FICH" 

20 PRINT ±1 , 1.1 «t pourquoi pas ? 

30 CLOSE 

10 OPEN "I", 1,"FICH" 

50 INPUT = 1 , A;r 

60 PRINT A ■- 

70 CLOSE 

Eh blen le nombre 1.1 d'origine sera transforme en : 1.1000000238131858...! Cette fantaisle ne se produit que 
lorsque le nombre possede un point decimal et moins de 9 chlffre significatlfs. Que s'est-11 passe ? II faut tout 
d'abord savoir que les nombres sont ecrits dans les fichiers sequentiels sous la forme d'une chaine de caracteres . 
Ainsi, vous pouvrez tres bien remplacer le A# par un A$ en ligne 50, et ajouter : 

55 A#= VAL(A$) 

et cette fols, tout se passera normalement. Ceci nous prouve que la fonction de conversion CDBL (utilisee par 
INPUT ) ne fait pas tres bien 3on travail ! Aussi , d'une maniere generale. au lieu de faire : 

As 1.1 

B^CDBL(A) 

il sera preferable d'utiliser la forme : 

As 1.1 

B£=VAL(STR$(A)) 

Bertrand de Pommery 



FUSION DE PROGRAMMES BASIC 



Pour fusionner (fonction MERGE de la version disquette) dex programmes BASIC en memoire lorsqu'on ne dispose que 
des cassettes, il faut tout d'abord que leurs numeros de lignes soient compatibles. Suivre ensulte la procedure : 

20 - TRACE N 4 - Janvier 1983 



1 - Charger le premier programme 

2 - Frapper ensuite au clavier : 

I=PEEK( 16633)+PEEK( 16631)*256 

1=1-2 

POKE 16519, INT( 1/256) 

POKE 16518,I-256»INT( 1/256) 

3 - Charger le second programme 
1 - Frapper : 

POKE 16518,233 
POKE 16519,66 



Roger Di Marsilio 



DEUX PRECAUTIONS VALENT MIEUX QU'UNE 



Desormais, je commence tous mes programmes BASIC par la sequence suivante : 



1 GOTO 10 

2 SAVE "nom-du-programme" 
10 debut du programme 



STOP 



Des que j'ai tape quelques lignes (par crainte des coupures de courant !) ou effectue une modif, il me suffit de 
taper " RUN2" et le programme est sauve automatiquement . Un "RUN" conduit a une utilisation normale . Les utilisa- 
teurs cassette pourront remplace "SAVE" par "CSAVE"... 

Jacques Weill 




CHANGEMENT DE STEP 



Suivant la valeur placee aux adresses ci-dessous, on 
obtiendra les temps suivants : 

IB ===> 30/10 millisecondes (vitesse standard) 

1A ===> 20 

19 ===> 12 
18 = = =;> 6 

BOOT /SYS, Piste 00, Secteur 

Octet BA pour TRSDOS 2.3, NEWD0S+ et NEWDOS40 
BC - VTOS 1.0 et LDOS 5.0 

- 6B - NEWDOS80 Version 1.8 

- 72 - NEWDOS80 Version 2.0 

SYS0/SYS, Piste 00 

Secteur 7, Octet 52 cour TRSDOS 2.3 

9, - OF - NEWD0S+ et NEWDOS10 
8 - FE - NEWDOS80 Version 1.0 

II n'v a pas de modification correspondante a faire 
sur VTOS 1.0 LDOS 5.0 et NEWDOS Version 2.0 



DEBOGAGE DE SYS3/SYS SUR TRSDOS 2.3 : 



Lors de creation de fichlers ou d'a.lout (par les fonc- 
tions DUMP SAVE ou OPEN), si la longueur de l'enregis- 
trement est multiple de 5 secteurs, SYS3/SYS fermera 
le fichier en ayant alloue une granule de plus que 
necessaire. 



SYS3/SYS, Piste 12H, Secteur 



OCTET 


AVANT 






APRES 






E9 


23 


1EE5 


INC 


HL 


B7 


1EE5 


OR 


A 


EA 


AF 


AEE6 


XOR 


A 


28 


1EE6 


Jfl 


Z,$+0 


F.H 


E3 


1EE7 


EX 


DE.HL 


(-1 








EC 


ED 


1EE8 


SBC 


HL.DE 


23 


1EE8 


INC 


HL 


ED 


52 








EB 


1EE9 


EX 


DE.HL 


EE 


EB 


1EEA 


EX 


DE,HL 


EI) 


1EEA 


SBC 


HL.DE 


EF 


E1 


1EEB 


POP 


HL 


52 








F0 


CA 


1EEC 


JP 


Z.1F7B 


EB 


1EEC 


EX 


DE.HL 


Fl 


TP, 








El 


1EED 


POP 


HL 


F2 


IF 








37 


IEEE 


SCF 




F3 


DA 


1EEF 


JP 


C.1F7B 


D2 


1EEF 


JP 


NC.1F 



TRACE N° 4 - Janvier 1983 - 21 



Les autres DOS ne font pas cette erreur, mime NEWDOS 
Qui a ete modifie d'une maniere differente (adonction 
de la routine 50 IB). 



DEBOGAGE DE SYS6/SYS SUR TRSDOS 2.3, NEWDOS+ et 
NEWDOS40 : 



La cpmmande DIR avec option A rait apparaitre des 
erreurs dans le nombre d'enregistrements logiques 
affiche lorsque la longueur de ceux-ei est differen- 
te de 256. C'est la cas general des enregistrements 
crees par PROFILE. 



Pour super lmer cette bogue, changer la valeur de 7E 
en AF (LD A,(HL) en XOR A), a l'adresse suivante : 
sur TRSDOS 2.3, Piste 11H, Secteur 2, Octet 58 H 
sur NEWD0S+ et NEWDOS10, Piste 11H, Secteur 5, Octet 
38H. 

Les autres DOS ne font pas cette erreur. 

ADAPTATION DE PROFILE AUX DISOUETTES DE PLUS DE 
35 PISTES : 



PROFILE Version 1.0 ouvre systematlauement des fi- 
chiers de donnees PRODAT de 32 granules sur le Disque 
et de 66 sur les Disques 1,2 et 3- Pour utiliser 
pleinement la capacite de DRIVES pouvant exploiter 
plus de 35 pistes, il Taut modifier les valeurs loca- 
lisees aux adresses cl-dessous : 



Programme INIT, Piste 15H, Secteur 3 

Octets 86 et 87 pour le DRIVE 

88 et 89 - - 1 

8A et 8B - - 2 

8C et 8D - 3 

Les valeurs contenues a ces adresses representent 
(dans l'ordre habitue 1, poids faible, poids fort, en 
Hexadecimal) le nombre de secteurs exploites. 

Les valeurs d'origine sont : 



9F et 00 pour le DRIVE 0, soit 159 secteurs (32 gra- 
nules) 

49 et 01 pour les autres DRIVES, soit 329 secteurs 
(66 granules) . 



Un secteur est done gaspille et Deut etre recupere 
si SYS3/SYS a ete debogue, mais une granule de plus 
que necessaire doit rester libre pour le fonctionne- 
ment de LPFORM. 



Le DRIVE est tres penalise car il reste 3 granules 
libres sur la disquette 35 pistes d'origine, d'autant 
plus qu'll est alloue indument ( cf supra, "bogue" sur 
SYS3/SYS du TRSDOS), a chacun des programmes ACCESS 
et SORT, 2 granules pour 5 secteurs occupes. En outre, 
il est possible de supprimer FORMAT et BACKUP (3 gra- 
nules pour chacun) et SYS5/SYS (1 granule) necessaire 
seulement pour DEBUG. II y a done deia 11 granules a 
recuperer pour PRODAT sur une disquette de 35 pistes, 
en faisant passer la valeur de l'octet 86 de 9F a 
D6/D7. 



Pour ACCESS et SORT, modifier le DIRECTORY comme suit 
Piste 11H, Secteur 9, ACCESS, Octet 57, changer 01 
en 00 
Piste 11H, Secteur 3, SORT, Octet F7, chancer 01 en 

00 

Piste 11H, Secteur (HIT), Octets 05 et 1C, changer 

FF en FD. 

Avec les disquettes formatees a 40 (ou 42 pistes), 
les valeurs correspondantes du programme INIT sont : 

DRIVE ===> 08/09 et 01 (ou 1C/1D et 01) 

DRIVES 1,2 et 3 ===> 7B/7C et 01 (ou 8F/90 et 01) 



ADAPTATION AUX IMPRIMANTES N'ACCEPTANT PAS LES CODES 
GRAPHIQUES 



Avec PROFILE, les imprimantes ne decodant pas le bit 
7 sautent une ligne (non comptee ) lorsqu'elles recoi- 
vent le code 8A, ce qui risque de poser des problemes 
lors des sauts de page. 

Modifier le programme PRINT, Piste 0C, Secteur 7, 
Octet 1A, en remplacant la valeur 8A par 20 (code 
espace) , par exemple. 



BOGUE COMPILATEUR BASIC MICROSOFT SOUS NEWD0S80 



Lorsque l'on travaille sur des fichiers sequentiels 
sous NEWDOS80 avec un programme compile pas BASCOM 
de Microsoft (en aomme, quelque chose de tout-a-fait 
ordinaire...), on peut avoir de ficheuses surprises, 
ainsi que le demontre le petit programme suivant : 



10 


CLEAR 1000 




20 


0PEN"0", 1,"FICH:0" 




30 


FOR N=1 TO 1 




no 


PRINT* 1, STRING$( 127,"*") 




50 


NEXT 




60 


CLOSE 




70 


OPEN" 1", 1,"FICH" 




80- 


Rs.0 




90 


IF E0F( 1 ) THEN CLOSE : END 




100 


INPUW1,A$ : N=?+1 : PRINT N 


A$ 


110 


GOTO 90 





Ce programme agit de telle sorte que la fin d'un en- 
registrement tombe exactement sur la fin d'un secteur 
(256 octets) de la disquette. C'est peut-etre un coup 
de chance, mais cela peut parfois arriver ! Si vous 
compilez ce programme, vous vous apercevez que la 
lecture du f ichier boucle indef lniment . . . ce qui 
n'est pas tout-a-fait normal. Ce probleme ne se pro- 
duit ni sous TRSDOS ou LDOS, ni sous interpreteur . 
Pour pallier a cette anomalie, j'ai tout d'abord 
ajoute a mon programme une sequence qui compte la 
longueur de chaque enregistrement et qui lui ajoute 
un caractere special lorsque celui-ci se termine sur 
une limite de secteur, ce caractere devant etre reti- 
re a la lecture... Depui3 peu de temps, J'ai appris 
qu'il y avait un moyen plus simple, transmis a Appa- 
rat par Microsoft lui-meme et qui permet d'eviter 
toute cette cuisine : 

Avec l'utilitaire Superzap, modifier le secteur re- 
latif 10 de BRUN/CMD ainsi : 

BRUN/CMD, 10, 1D changer 16 0B 70 en 16 00 70 

et le tour est joue . . . Mais il fallait le connaitre ! 



. Bertrand de Pommery 
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nouveau. 



Pour ne plus taper nos 
programmes 



DISQUETTES "TRACE" 



Ceux de nos lecteurs qui sont venus nous voir aux 
boutiques du Sicob ont eu l'agreable surprise de 
trouver en vente sur notre stand une disquette con- 
tenant les programmes figurants dans les numeros 1 
et 2 de TRACE. Nous y avons pense a la derniere minu- 
te ce qui explique que nous n' avons pas trouve le 
temps de vous en prevenir... Mais il n'est jamais 
trop tard pour bien faire ! Naturel lement , cette nou- 
velle initiative nous a cause quelques soucis et nous 
a amene a nous poser une question fondamentale : le 
support serait-il sur cassette ou sur disquette ? 
La premiere solution ayant ete ecartee assez rapide- 
ment (probleme de lecture, necessite de passer par 
un banc de duplication ce qui implique de grosses 
quantites, etc...), nous avons done opte - tout en 
ayant conscience que nous allions faire quelques me- 
contents - pour le support disquette dont la duplica- 
tion en petite quantite nous pose moins de problemes 
(le Jour oil TRACE aura 10000 abonnes, nous pourrons 
re-etudier la question !). La encore, nouveau pro- 
bleme : la disquette pour des raisons de copyright, 
ne devait pas contenir de systeme, ce qui risqualt 
de brimer certains utilisateurs "mono-disquette" . . . 
Comme vous pouvez le constater, le probleme n'est 
pas tres simple, mais ce n'est qu'une experience que 
nous sommes prets a abandonner s'il devait s'averer 
que le nombre de mecontents depasse le nombre d'uti- 
lisateurs satisfaits . . . L'avenir nous le dira ! 

Pour ce qui est du temps present, 1 'utilisateur se 
trouve done devant plusieurs situations : il possede 
un modele 1 (ou equivalent) ou un modele 3, avec une 
ou au moins deux unites de disquette. Son systeme 
d' exploitation est TRSDOS de Tandy mais il peut - ce 
qui est tres probable - avoir fait 1 'acquisition d'un 
autre systeme ( LDOS, NEWDOS, NEWD0S80. . . ) . Actuelle- 
raent et a notre connaissance, il n'existe malheureu- 
sement aueun moyen pour un utilisateur modele 3 mono- 
disquette de lire un support enreglstre en simple 
densite. C'est pourtant techniquement faisable mais 
Tandy a probablement juge qu'un tel investissement 
etait inutile, attendu que la plupart des utilisa- 
teurs disquette du modele 3 etaient equipes de deux 
unites. Le meme probleme se pose d'ailleurs pour ceux 
qui sont passes de la version 1.2 a la version 1.3 
du TRSDOS en voulant utiliser la commande XFERSYS 
qui ne fonctionne (la documentation est tres silen- 
cieuse sur ce point) qu'avec deux unites. 

La disquette TRACE etant enregistree en simple den- 
site 35 pistes, la marche a suivre devant chacun de 
ces cas est l'une de celles qui figurent ci-contre : 



MODELE 3 : 



- Monodisquette : impossible actuellement . 

- Double disquette : la commande CONVERT perraet de 
lire sur 1' unite 1 les fichiers enregistres en 
simple densite de la disquette TRACE et de les 
recopier sur 1 'unite 0. 



MODELE 1 : 



- Monodisquette avec TRSDOS : impossible actuelle- 
ment . 

- Monodisquette avec NEWDOS ou NEWD0S80 : 

COPY :0 $MATHIC2/BAS TO MATHIC2/BAS 

(ne pas oublier le dollar devant le premier nora) . 

- Monodisquette avec LDOS (version anterieure a 
5.1.2.1 : 

XFER MATHIC2/BAS:0 

- Monodisquette avec LDOS (version a partir de 
5-1.2.) : 

COPY MATHIC2/BAS:0 TO :0 (X) 

Les exemples qui precedent sont donnes pour le pro- 
gramme MATHIC2/BAS figurant sur la disquette TRACE. 
II sera necessaire de reproduire cette operation pour 
chacun des programmes a transferer, ce qui est assez 
long mais d'un emploi facile : il suffit de suivre 
lea consignes affichees par lea commandes qui distin- 
guent la disquette SOURCE (TRACE), la disquette DES- 
TINATION (disquette systeme sur laquelle vous voulez 
recopier les programmes), la disquette SYSTEM (dans 
ce cas, la meme que la destination). 

Un detail : le support employe pour enregistrer la 
disquette TRACE est garantl "double densite", ce qui 
signifie qu'il est de bonne qualite et PEUT supporter 
une densite double de secteurs . Toutefois, cela ne 
veut pas dire - comme certains l'ont cru au Sicob - 
que les programmes fournis ont ete enregistres en 
double densite et qu'ils ne sont llsibles que sur un 
modele 1 equipe d'un "doubleur de densite". 

Encore une chose : deux autres disquettes TRACE (nu- 
meros 3 et t) sont disponibles ! Avis aux amateurs ! 



Pour commander voe disquettes 

report ez-voue en page 5 
TRACE 
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programmes, 



Cote court 



INSOMMIES ? 

Si vous avez des insomnies et plutot aue de prendre un medicament, suivez plutot ces directives : 
1) Faire CLEAR 200 



10 FOR 1=1 TO 3 : PRINT A*; : NEXT ! IF LENtA$)<66 AND F=0 
THEN A$=A4+CHR*tRND( 159)+32) : GOTO 10 ELSE IF LEN(A$)>62 
THEN A$=LEFT*(A*;LEN(A*)-1) : F=l : GOTO 10 ELBE F=0 i 

GOTO 10 



2) Entrer la ligne suivante sans oublier le ":" apres le PRINT A$ 

3) Faire RUN et attendre quelques secondes... 



Raymond Lobry 



CONVERSION HEXA/DECI : DE PLUS EN PLUS FORT ! 

Le programme de conversion paru dans TRACE n° 3, a la page 35, peut prendre plusieurs secondes pour s'executer. 
De plus, 11 ocoupe 150 octets... Voici un programme bien plus rapide et n'occupant que 92 octets (sans lea espa- 
ces). Qui dit mieux ? Le defi est lance ! En outre, celui-ci emploie des noms de variables peu utilises (sauf A$) 
La chatne a convertir est A$, le resultat est N9- 



Exemple d'utilisation 






10 INPUT "VALEUR 


HEXA" ; A$ 




20 G0SUB 1000 






30 PRINT "VALEUR 


DECIMALE' ; 


N9 


40 GOTO 10 







Frederic Mora 



FUSION DE PROGRAMMES BASIC SUR MODELE 3 CASSETTE 



1 POKE 16928.. PEEK! 16548) :P0KE16930 > PEEK ( 16549) :A = 

' PEEK < 16633 )+256»PEEK< 16634) ) -2 : POKE 16548 7 (AAND255) : 
POKE 16549- A/256 :CL0AD 



Procedure a suivre 



1) charger le programme ci-dessus, le sauvegarder et le lancer par RUN. 

2) mettre le magnetophone en marche pour lire le premier programme BASIC a fusionner. 

3) Trapper au clavier : P0KE165H8,PEEK( 16928) : POKE16519, PEEK( 16930) 

4) faire RUN. 

5) mettre le magnetophone en marche pour lire le programme BASIC suivant a fusionner. 

6) retourner au point 3 pour d'autre programmes eventuels. 



Remi Piette 



RENUMEROTATION BASIC SUR MODELE 3 CASSETTE 

Ce programme se charge apres le ou lea programmes (fusionnes) a renumeroter. II se lance par : RUN 65528. Apres 
execution, ef facer les deux dernieres lignes. Attention : les branchements contenus dans les programmes ne sont 
pas modifies. Toute modification d'ecriture du programme qui suit (espaces, texte d'entree, etc..) modifie la 
valeur 183 de la ligne 65528. 



65528 


DEFI NT A: 


CLS 


AF = 


(PEEK( 16633)+ 


256*PEEK( 16634) )■■ 


183: 


INPUT 


'QUEL PAS 


DE 


NUMER0TATI0N";AU 


:AV = 


AU:AD=PEEK( 16548) 


+256*PEEK( 1654'') 












65529 


POKEAD+2 


. <AVANE 


255) :P0KEAD + 3 


>AV/ 


256:AV=AV+AU 


AD= 


PEEK(AD)+256*PEEK 


AD + 


1) : IFADOAFTHEN65529ELSELIST 





Remi Piette 
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initiation 

Pilot : 

un langage pour 

l'enseignement 




II arrive souvent que la condition d' informatioien 
amateur coincide avec celle de pere de famille ou 
avec celle d'enseignant . Cela explique peut-etre 
1 ' interet que susoite l'emploi des ordinateurs com- 
me aide a l'enseignement. 

Les premiers essais dans ce domaine sont alors con- 
sacre3 essentiellement au renforcement des appren- 
tissages de base : lecture, calcul, orthographe . 
II est en effet assez simple de concevoir des pro- 
grammes puis de les ecrire en BASIC permettant de 
s'entrainer au calcul, de faire reviser les tables 
de multiplications ou le temps des verbes, d'ame- 
liorer la capacite de lecture... 

Les meilleures realisations reintegrent la dimen- 
sion du jeu, curleusement bannie du domaine de l'en- 
seignement (n'est-il pas "normal" qu'il en soit ain- 
si puisque la plupart d'entre nous avons "subi" la 
contrainte d'un apprentissage a base de punitions 
et de recompenses ! ) . La pratique des jeux sur 0.1. 
apprend a utiliser au mieux les possibilites du gra- 
phique et de 1 'interaction pour accroltre la moti- 
vation de celui qui apprend. Celui-ci n'agit plus 
pour obtenir une bonne note raais pour battre son 
propre record ou tout simplement, par essais et er- 
reurs , pour aboutir a la bonne reponse. L'erreur 
n'est plus deshonorante et devient au contraire un 
moyen de se rapprocher du but . Ces programmes al- 
liant le jeu et la pedagogie sont parfois appeles 
des LUDICIELS. 

Une autre technique, appelee QCM (question a choix 
multiples), simple a realiser, est utilisee pour le 
controle de connaissances . Elle consiste a poser 
une question suivie d'une lists de reponses vrai- 
semblables dont une seule est la bonne, comme dans 
l'exemple suivant : 

QUELLE EST LA CAPITALE DE LA REPUBLIQUE 
FEDERALE D' ALLEMAGNE ? 

a FRANCFORT 
b BONN 
c MUNICH 

repondez par la lettre precedant la reponse selec- 
tionnee . 

Sur ce simple exemple il est possible de montrer 
les differentes manieres d 'exploiter la reponse que 
pourra faire l'eleve. 

Si la reponse n'est pas egale a "a", "b" ou "c", la 
question sera reaffichee avec le commentaire : 
"repondez par a, b ou c uniquement" . 

Si la reponse est "a" ou "c", le commentaire "non, 
ce n'est pas la bonne reponse" pourra etre affiche . 
II sera preferable d'indiquer pour "a" que c'est le 
nom de la capitale et non de la principale ville 
qui est recherche, et pour "c" que la Baviere n'est 
qu'un des etats constituant la RFA. L'objectif le 
plus important n'est-il pas d'aider l'eleve a decou- 
vrlr la bonne reponse plutot que de le sanctionner 



ou de lui infliger une notation sans explication ? 
Dans le cas de la bonne reponse "b", au lieu d'af- 
ficher "c'est bien", il pourra etre utile d'in-diquer 
un commentaire de renforcement du genre : "BONN est 
bien la capitale federale de la RFA, chaque "land" 
la constituant ayant leur propre capitale. 

II reste un dernier point a regler : eviter que 
l'eleve ne reste indefiniraent sur cette question 
(les informaticiens parlent alors de bouclage). II 
suf fira de compter le nombre de passages sur la ques- 
tion et de fixer une limite, par exemple 3- On pour- 
ra declencher en cas de quatrieme passage, soit l'af- 
fichage de la bonne reponse, soit 1 'enchalnement sur 
un autre dialogue destine a mettre l'eleve sur la 
vole de la reponse. 

C'est en construisant par ce biais des "cheminements" 
dlfferents que le p-ogramme "s'adaptera" , lors de 
1 'execution, aux reactions de l'eleve concretisees 
par ses reponses . 

Cependant cette approehe atteint rapldement ses li- 
mites : faire un bon programme, utilisant rationel- 
lement les capacltes graphiques, soignant la presen- 
tation d'ecran, gerant un bon niveau de complexite 
de situations, avec une interactivity et des perfor- 
mances satisfaisantes, et en plus organise de telle 
sorte qu'il puisse etre modifie facilement, implique 
d 'avoir invest! beaucoup de temps et d'energie dans 
1' apprentissage de 1 ' informatique . De meme, seul un 
auteur ayant une grande pratique de la pedagogie 
saura definir des programmes dont la finalite sera 
effectivement d'apporter une aide a l'enseignement. 

Alors faut-il etre pedagogue-informaticien ou infor- 
maticien-pedagogue ? Le temps pour former l'un ou 
1 'autre etant fort long, l'idee est venue de definir 
un "langage" specialise pour l'ecriture de program- 
mes a but educatif et destine aux auteurs pedagogues 
sans formation approfondie a 1 ' informatique . (II 
sera toutefois souhaitable qu'une formation a l'al- 
gorithmique ait ete dispensee au prealable). Pour 
cela il a fallu mettre en evidence les "fonctions" 
les plus utilisees dans l'ecriture de ce type de 
programme et leur faire correspondre des instruc- 
tions dans ce langage. Ainsi le langage PILOT (Pro- 
gramming Inquiry Learning Or Teaching, programmation 
de questions pour 1 'apprentissage ou l'enseignement), 
a ete developpe vers 1970 pour faciliter l'ecriture 
de "dialogues" a vocation d'enseignement . 

L'exemple precedent va nous permettre de degager les 
fonctions et les instructions correspondantes neces- 
saires pour realiser un dialogue simple : 



T: 



A 

M 

JY 



presentation d'une "sollicltation" composee 
d'un texte introduisant le contexte, et 
d'une question 

lecture de la reponse de l'eleve 
analyse de cette reponse 
, JN: ou J: cnalnage de chaque type de 
reponse attendue a des actions appropriees 
(commentaires, retour a la question, pas- 
sage a un autre dialogue). 
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Y (oui) ou N (non) aont utilises pour choisir une 
instruction d'apres le resultat de 1 'analyse de la 
reponse qui precede. 

Au moyen de ce langage tres simple nous allons pou- 
voir programmer facilement l'exemple du debut : 

QUELLE EST LA CAPITALE DE LA RFA ? 



BONN EST BIEN LA CAPITALE FEDERALE... 

lUO (vers un autre dialogue) 

a 

C'EST LA CAPITALE QUI EST RECHERCHEE ET 

NON LA PRINCIPALE VILLE DE RFA 

10 (retour a la question) 

c 

LA BAVIERE N'EST QU' UN DBS ETATS CONSTI- 

TUANT LA RFA 

10 (retour a la question) 
REPONDEZ PAR a, b ou c UNIQUEMENT 
10 (retour a la question) 



10 


i 




20 


A 




30 


M 




40 


TV 




50 


JV 




60 


M 




70 


TY 




80 


JY: 


90 


M 




100 


TY 




110 


JY: 


120 


T: 


no 


J: 


110 


(a 


u 



autre dialogue) 



technique: 



Essayez de programmer cette sequence en BASIC et 
vous verrez tout de suite l'lnteret d'utiliser des 
instructions specialisees pour ecrire lisiblement 
des dialogues a but educatif . 

Si vous desirez experimenter ce langage, procurez- 
vous le numero de Juillet 1981 de la revue 80 MICRO- 
COMPUTING. Vous y trouverez la liste des instructions 
d'un programme BASIC qui produit une cassette aysteme 
contenant 1 ' Interpreteur PILOT, qui n'occupera que 
300 octets en memoire. 

Comme tous les langages specialises, PILOT s'eat 
etoffe progressivement jusqu'a devenir un langage 
informatique complet. Nous verrons dans un autre 
article deux realisations de PILOT, disponibles sur 
TRS-80 : BPIL0T (diffuse par CAMI, P.O. Box 2030 
Goleta, CA 93018) qui est une extension de BASIC et 
PILOT PLUS (diffuse par TANDY) qui est un langage 
complet incluant un editeur graphique. 



.Pierre Landry 



Sachez gcouter 
votre 

ordinateur 




Faites l'essai suivant : placez a proximite de votre 
ordinateur un poste de radio regie autour de 90 Mhz, 
en frequence modulee. Vous entendrez un sifflement 
lorsque 1' ordinateur est en attente d'une entree au 
clavier. Lors de 1' execution d'un programme en BASIC 
vous entendrez un bruit de machine au rythme varia- 
ble, mats regulier lors de l'execution de boucles. 
Bref, vous entendrez reellement travalller votre or- 
dinateur. 

Peu interessant, direz-vou3. Vous disposez cependant 
par ce simple moyen d'un puissant outil diagnostique 
pour la detection de certaines pannes ou anomalies . 
Je citerai au hasard , car les exemples sont norabreux: 

1. Un son enroue indique que l'horloge temps reel 
est en service, done acces interdit a la K7 . vous 
tapez CMD"T" et le son redevient pur. 



2. Lora de l'echange ou la mod 
alphanuraeriques, pendant les t 
INPUT, le bruit de machine est 
ment interrompu et remplace pa 
indiquant que 1 'ordinateur est 
l'ordre dans l'espace memoire 
CLEAR. L'ordinateur eat alors 
certain temps", et les entrees 
rantes . Ceci indique que votre 
ecrit, mais e'est la une autre 



ification de variables 
ris ou les entrees par 

parfols periodique- 
r un "gli, gli. .." 

occupe a remettre de 
encombre defini par 
bloque pendant "un 

clavier sont inope- 

programme est mal 

hlstoire . . . 



3. Lora de l'acces au disque, vous entendrez succes- 
sivement avec des "bruits" differents, la lecture du 



repertoire puis celle des secteurs et des changements 
de piste. Mieux encore, si la lecture d'un secteur 
est infructueuse, vous entendrez l'ordinateur recom- 
mencer plusieurs fois cette lecture, le message DISK 
1/0 ERROR n'apparaissant qu'aprea environ dix essais 
negatifs. Ceci vous permet de pre juger , meme en 1' ab- 
sence d'un message d'erreur, que la disquette est 
douteuse. Paradoxalement , un nouveau SAVE du pro- 
gramme remet souvent tout en ordre. Vous pourrez 
aussi constater qu'un CMD"T" avant l'acces au disque 
elimine la quasi totalite de ces erreurs . Mais ceci 
est encore une autre histoire . . . 



1. Enfin, s'il vou 
raiaon apparente , 
met en marche de f 
(mais non certain) 
qu'il n'y a pas de 
que, si elle exist 
faite vers tous le 
legerement les cab 
dez une nette modi 
est quasi-certain 
ce niveau, et vous 
sives, isoler la c 
Un point particuli 
cable plat de race 
d 'extension . 



s arrive de rester "plante" sans 
ou encore si une unite disque se 
aeon inoplnee, il est probable 
qu'un connecteur est mal fixe, 
"masse" ou mise a la terre, ou 
e, sa eontinuite n'est pas par- 
s peripheriques . Si, en deplacant 
les et les apparells, vous enten- 
fication de l'intensite sonore, il 
que quelque chose est incorrect a 
pourrez par eliminations succes- 
onnexion ou la masse defectueuse. 
erement vulnerable est le petit 
ordement du clavier a 1' interface 



.Roger Brouamiche 
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initiation. 



Les programmes 

de base de votre 

systeme 



Vous pouvez sou vent rencontrer dans des livres ou 
des revues les mots editeur, moniteur, compilateur, 
assembleur, desassembleur , interpreteur . . . mais 
qu'est-ce done ? 

Ce sont differents noras donnes a des programmes qui 
realisent des fonctions bien precises, lorsqu'ils 
sont executes par un ordinateur. Pour des raisons 
de performances, ces programmes sont ecrits, dans 
la majjorite des cas, en langage machine - le langa- 
ge natif du microprocesseur , le seul en fait, que 
celui-ci peut comprendre . 

Le moniteur est un programme qui figure toujours - 
sous une forme ou sous une autre - dans la memoire 
de 1 'ordinateur . C'est grace a lui que l'homme peut 
dialoguer d'une maniere simple avec la machine. 
Outre ce role de mediateur, il offre a l'operateur 
ou aux programmes des "couches superieures" (voir 
plus loin), un certain nombre de services. II con- 
tient les "drivers" ou pilotes d'organes peripheri- 
ques, qui sont des portions de programmes specif i- 
ques a chaque type de materiel relie a la machine . 
Imprimer le caractere "A" sur 1 'imprimante, ou l'af- 
ficher sur l'ecran video peut sembler se borner a 
une simple operation d 'aiguillage . Pourtant, la ma- 
niere de dialoguer au niveau elementaire avec 1' im- 
primante est tres differente de celle employee pour 
dialoguer avec l'ecran. Ce sont les pilotes qui, 
adaptes a chaque type d'organe, rendent cette ope- 
ration tres banale pour le programmeur . D'oii la no- 
tion importante de "couches" logicielles entre l'hom- 
me et la machine : 

- couche 1 : (la plus proche du materiel) 

moniteur, "drivers" 

- couche 2 : interpreteur. compilateur 

- couche 3 : programme en langage evolue 

On pourrait par exemple, imaglner une quatrieme cou- 
che acceptant les programmes issus de differents 
langages evolues ou de differents ordinateurs, pour 
les transposer en un langage unique de la couche 3 ! 
Plus le nombre de couches augmente et plu3 on s'ap- 
proche de l'homme. Selon la complexite et 1' impor- 
tance du systeme, le nombre de couches peut devenir 
tres important . 

Dans un contexte "exploitation", le moniteur est ap- 
pele : systeme d 'exploitation (Operating System). 



Celui du TRS-80 existe sous une forme reduite et dis- 
crete, en memoire morte . Lorsque des disquettes sont 
employees (on parle alors de Disk Operating System 
ou DOS ou SED en frangais), le role du moniteur de- 
vient plus apparent : c'est celui d'un veritable 
chef d'orchestre ! 



Parfois et le plus sou vent sur de petits systeraes, 
le moniteur offre un certain nombre de commandes 
orientees vers 1' exploration des "couches basses" 
du logiciel et mime de la couche "physique", celle 
du microprocesseur et des composants electroniques 
qui l'entourent. On l'appelle alors : moniteur "lan- 
gage machine". Avec ce dernier, il est possible de 
lire, d'ecrire ou de modifier le contenu de la me- 
moire et des registres du microprocesseur, de re- 
chercher une valeur donnee, d'ecrire un petit pro- 
gramme en langage machine, de l'executer, etc... 
RSM est 1' exemple d'un tel programme tournant sur 
TRS-80. Mais il y en a d'autres, et il paraitrait 
meme qu'il s'en cache un dans les memoires mortes 
du Video Genie ! 



L' i ntcrprctcur est un programme- dont la fonction, 
comme son nom l'indique, est d ' interpreter les or- 
dres d'un autre programme ecrit en langage evolue, 
par exemple celui que vous avez ecrit en BASIC. Pour 
le TRS-80 comme pour beaucoup d 'ordinateurs indivi- 
duals, 1 ' interpreteur est en memoire morte (ce qui 
slgnifie qu'il est directeraent disponible sans avoir 
besoin de le charger), et le langage en question est 
le BASIC. II existe d'autres types d' interpreteurs, 
lies a d'autres langages : APL, LISP, FORTH en sont 
des exemples. Mais attention, tous les langages ne 
se pretent pas toujours bien a 1' interpretation, 
Pascal pour ne citer que lui. L 1 interpreteur porte 
bien son nom : chaque "mot", chaque "phrase" compo- 
sant le programme ecrit en langage evolue, est tra- 
duit au fur et a raesure, afin d'etre "digere" et fi- 
"nalement execute par le microprocesseur. Le gros in- 
convenient de cette operation e3t de prendre un temps 
non negligeable. Pour ne donner qu'un exemple, si 
1 'interpreteur passe dix fois sur la meme ligne (dans 
une boucle, par exemple), il verlfiera dix fois que 
celle-cl ne comporte pas d'erreur de syntaxe . . . Ace 
sujet, on trouve des interpreteurs qui procedent a 
cette verification lors de 1' introduction meme de la 
ligne de programme, ou a chaque modification de cel- 
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le-ci . Le gain en temps d 'execution est alors tres 
appreciable. Mais 1' interpreteur a tout de meme des 
avantages . Le principal est d'etre tres interactif, 
ce qui signifie qu'une erreur detectee a 1' execution 
sera corrigee sur le champ et que le programme pour- 
ra etre relance dans les secondes qui suivent. En 
phase de mlse au point, 1 ' interpreteur s'avere ega- 
lement tres puissant. On veut "tracer" 1' evolution 
de telle ou telle variable ? Facile : il suffit d'a- 
jouter des PRINT aux endroits adequats, puis de les 
retirer lorsqu'ils ne sont plus necessaires . Ajou- 
tons un STOP par ici , pour voir si cette ligne est 
bien executee . . . Oui , c'est bien le cas, mais que 
contient alors la variable Xs( ? Frappons PRINT Xs\.. 
et relancons 1' execution. Tiens, on va un peu plus 
loin, cette fois . . . 

Si l'on ne peut vraiment plus supporter les inconve- 
nients des interpreteurs, mais que l'on est pret a 
ne plus benef icier de leurs avantages... alors on 
peut tou jours utillser le compilateur (lorsqu'il 
existe dans le langage considere) ! Celui-ci, par- 
tant d ' un programme source identique a celui utilise 
par 1 ' interpreteur mais place ordinairement sur dis- 
quette, produit - sans l'executer - un programme ap- 
pele " objet" au format langage machine. Durant cette 
operation qui peut prendre un certain temps, il de- 
tecte la presence d'erreurs eventuelles dans le pro- 
gramme et, si tel est le cas, il sera necessaire 
d'en effectuer la correction et de proceder a une 
nouvelle compilation. Des qu'il n'y a plus d' erreur, 
le programme objet peut alors etre execute comme un 
simple programme en langage machine. Mais ici, plus 
question des facilites offertes par 1 'interpreteur .. . 
Le programme objet n'etant pas modifiable facilement, 
chaque correction du programme source devra etre 
suivie d'une nouvelle compilation. Parfois, certains 
objets necessitent l'emploi d'un programme "execu- 
teur" pour pouvoir etre lances. Ce dernier contient 
general ement 1' ensemble des sous-programmes les plus 
usuels dont peut avoir besoin le programme objet. 
Parfois encore ( Pascal ou CBASIC par exemple > , le 
compilateur ne produit pas directement un objet en 
langage machine mais en "pseudo-code", appele aussi : 
code intermediaire, et dont la seule raison d'etre 
se reclame d'une eventuelle (mais utopique, semble- 
t-il) transportabilite entre differents ordinateurs. 
L'executeur prend alors la forme d'un interpreteur 
simplifie... et le compilateur se nomme a juste ti- 
tre "pseudo-compilateur" . Un peu embrouille, tout 
cela ! 

Mais revenons un peu en arriere. Avant de compiler un 
programme, il faut 1 'ecrire. or nous avons vus qu'il 
devait etre disponible sur disquette. Si on a 1 'in- 
terpreteur sous la main (ce qui n'est pas toujours 
le cas), il suffira de sauver le programme BASIC au 
format ASCII (option SAVE "nom",A) qui est la seule 
forme acceptee par le compilateur . On peut aussi 
utiliser un autre programme nomme editeur , qui a 
pour role de creer des programmes source ou de les 
modifier, et ceci independamment du langage dans le- 
quel ils sont ecrits . A la limite, cela peut etre 
un simple texte en francais ! L'editeur, vous en avez 
deja un avant-gout avec la commande EDIT de 1' inter- 
preteur BASIC. II comportera toujours des ordres per- 
mettant la manipulation d'un texte : recherche d'un 
mot, insertion, suppression d'un mot, d'une ligne ou 
d'un paragraphe, etc... On distingue les editeurs 
"ligne" qui n'operent que sur une seule ligne a la 
fois (les plus courants mais les moins pratiques), 
et les editeurs "page" (ou "ecran" ) avec lesquels 
on peut deplacer le curseur dans le texte source et 
apporter facilement les modifications desirees qui 
s'effectuent du reste instantanement sous les yeux de 
l'operateur. Ils ressemblent en cela aux programmes 
de traitement de texte (Scripsit, par exemple) mais 
sous une forme plus simple, et denuee des criteres 
d' edition que possedent ceux-ci (pas de notions de 
cadrage, de justification, de coupure de mot...). 



II ne faut pas confondre editeur de textes et edl- 
teu r de liens . Ce dernier, appele LINKER en anglais 
(chaineur), a pour fonction principale de calculer 
et d'etablir des "liens" entre differents programmes 
issus d'un ou de plusieurs compilateurs . Cette nou- 
velle phase s'intercale done souvent entre la phase 
compilation et la phase execution. Dans ce cas-la, 
les "objets" delivres par les compilateurs ne sont 
pas directement executables et^sont dlts "transla- 
tables", e'est-a-dire peuvent etre places n'importe 
ou en memoire. Ce n'est que lorsque l'editeur de 
liens connait la taille et 1' emplacement des objets 
a fusionner qu'il peut proceder au calcul des adre- 
ses a rendre absolues avant execution. Mais revenons 
au premier role de l'editeur de liens en prenant en 
exemple . 



On desire ecrire un programme en BASIC, parce que 
c'est un langage facile a apprendre et simple d'em- 
ploi, mais on a deux imperatifs : une certaine por- 
tion de ce programme doit controler un organe peri- 
pherique rapide (et il vaudrait done mieux 1 'ecrire 
en assembleur) ; par ailleurs, une autre portion du 
programme necessite des calculs scientifiques forts 
complexes et II semble qu'une routine ecrite en FOR- 
TRAN realise justement cette fonction. La solution 
est done d 'ecrire le programme principal en BASIC 
(avec l'editeur de textes) et de le compiler (avec 
le compilateur BASIC) ; d 'ecrire la routine en as- 
sembleur (editeur) et de 1 'assembler (assembleur) ; 
de compiler la routine FORTRAN (compilateur FORTRAN). 
L'editeur de liens permettra alors de rassembler ces 
trols programmes en un seul, en calculant le3 liens 
utilises pour dialoguer entre eux (CALL). Le program- 
me resultant pourra alors etre execute . 
Bien entendu, il est necessaire de s' assurer que les 
compilateurs BASIC et FORTRAN, ainsi que 1 'assembleur , 
delivrent un format objet compatible avec celui qui 
est attendu de l'editeur de liens... Microsoft par 
exemple, propose : EDIT-80 (editeur), F80 (compila- 
teur FORTRAN), BASCOM (compilateur BASIC), M80 (ma- 
cro-assembleur ) , C80 (compilateur COBOL) et L80 (lin- 
ker). Et il semble que tout ce monde-la fasse bon 
menage ! 



Nous venons de parler de 1 'assembleur . II s'agit 
d'un autre programme du genre compilateur, qui tra- 
duit des instructions symboliques (programme source) 
en instructions "machine". Ainsi, si l'on ecrit 
1 'instruction symbolique "PUSH HL" dans le programme 
source, 1' assembleur traduira cela par le code binai- 
re 11100101, soit S5H dans la representation hexade- 
cimale. C'est tout de meme plus clair (pour l'homme) 
d 'ecrire "PUSH HL" que "11100101". non ? 
Bien entendu, 1 'assembleur offre un tas de petits 
services annexes, comme par exemple, l'adressage a 
des etiquettes symboliques, les macro-instructions, 
etc... pour lesquels nous ne pouvons pas trop entrer 
ici dans les details. 

Le desassembleur ? C'est un programme (un autre !) 
qui effectue 1' ope ration inverse ! On part d'un code 
binaire (celui situe dans une memoire morte, par 
exemple), et on retrouve les instructions symboli- 
ques : E5H nous redonnera "PUSH HL" . . . L'ennui, 
c'est que le desassembleur ne salt pas faire la dif- 
ference entre le code executable et les donnees (un 
texte en ASCII, par exemple), et il va done tout 
traduire en instructions symboliques... meme si cela 
ne veut rien dire ! C'est la ou le programmeur averti 
intervient en ajoutant des commentaires aux lignes 
pour essayer de comprendre . . . Cela, aucun ordinateur, 
aussi puissant soit-il, n'est capable de le faire 
aujourd'hul ! 



.Alain Pinaud 
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professionnel 

Calculez 

vos amortissements 



La fin de 1' annee est l'epoque des ecritures d'inven- 
talre en comptabilite ; o'est celle aussi de l 1 arret 
des comptes et des bilans. 

Parmi les ecritures comptables de fin d'exerclce, 
figure le calcul des "amortissements" . 



II s'agit de sommes qui vont venir dirainuer les be- 
nefices ; comme elles vont egalement venir diminuer 
le benefice soumis a l'impot, 11 est inutile de pre- 
ciser que les comptables d 'entreprises voire les di- 
rigeants de P.M.E. ou P.M.I, ont tout interet a les 
calculer sans commettre d'erreurs. 

Or precisement, 11 s'agit de calculs longs, monoto- 
nes prompts a endormir la vigilance naturelle des 
interesses . 

C'est done la ou le TRS dolt faire la preuve (s'il 
en est encore besoin) qu'il est la plus belle con- 
quete de l'homme apres le cheval . . . en reparant les 
consequences d'une somnolence, momentanee et excusa- 
ble, pendant le calcul d'un amortissement . 

Mais au fait qu'est-ce que "1 'amortissement" ? 

Intuitivement , on imagine sans peine qu'il a pour 
mission de constater un vieillissement . 

Mai3 11 doit egalement constater la perte de valeur 
par 3uite de l'evolution des techniques ou tout sim- 
plement la mode ou "1 'obsolescence" pour parler com- 
me les gens savants . 

Pour le calculer, on commence par se donner au de- 
part pour le materiel que l'on vient d'acquerir (un 
TRS80 par exemple !!), la duree probable d' utilisa- 
tion. Celle-ci sera, comme nous l'avons dit plus 
haut, fonction de l'usure mais aussi de l'evolution 
des techniques qui feront qu'un jour, ce materiel ne 
vaudra plus rlen. (Pour le TRS80, la duree en cause 
sera laissee a 1 'appreciation de chacun . . . ) . 



Tous les ans, pendant cette duree, on va, en p^re de 
famille prudent, mettre de cote une somme qui bout a 
bout permettra en fin de duree d 'utilisation de ra- 
cheter pour le meme prix un materiel identique. 

Le Fisc admet (Oh ! surprise...) que l'on ne paye 
pas d'impot sur cette epargne annuelle et qu'elle 
puisse done, chaque annee, venir diminuer les bene- 
fices taxables. Mais soupconneux et impitoyable, 11 
veille au grain et gare a ceux qui se sont , a son 
detriment, trompes "par hasard" dans leurs calculs 
(meme par TRS interpose)... 

Done, partant de la duree probable de vie d'un mate- 
riel, (notre TRS de tout a l'heure), nous determine- 
rons un taux qui, applique au prix d'origine du ma- 
teriel, nous donnera chaque annee le montant de l'a- 
mortissement deductible des benefices. 



Par exemple, un materiel qui est appele a durer dix 
ans aura un amortissement annuel de 1/10 ou 10 %. 

Un materiel qui va durer cinq ans aura un amortisse- 
ment annuel de 1/5 soit 20 %. 



C'est-a-dire que chaque annee, le materiel perd de 
sa valeur soit dans notre dernier exemple, 1/5 (ou 

20 %) ; sa valeur, (que l'on appelle alors "Valeur 
re3iduelle comptable" ) , est amputee chaque annee du 
montant de 1 'amortissement annuel pour atteindre une 
valeur nulle a la fin de la duree qui avait ete prea- 
lablement fixee. 



Mais, direz-vous, cet amortissement est le meme cha- 
que annee ? 



Ce n'est pas realiste car, dan3 la pratique, 11 est 
bien connu que le materiel se deprecie beaucoup la 
premiere annee et moins les annees sulvantes ; c'est 
le cas des voitures et il suffit de Jeter un coup 
d'oeil sur 1 ' Argus pour le constater. 



Certes, voila la source d ' innombrables programmes 
qui restent a ecrire pour constater le vieillisse- 
ment reel economique des materiels et determiner 
leur valeur residuelle annuelle en fonction de l'e- 
volution de leur environnement, de leur usure ou de 
leur inadaptation voire en incluant la montee des 
prix pendant la duree de leur utilisation. Ces pro- 
grammes ne manqueront pas d ' interet a une epoque oil 
sevit un impot sur la fortune qui s' applique egale- 
ment a l'outil de travail. 



Notre programme est beaucoup moins ambitieux. II se 
borne a calculer un amortissement constant (appele 
par le Code general des impots : "Amortissement li- 
neaire") suivant les directives legales en vigueur . 



Ce programme calcule la reduction de 1 'amortissement 
annuel la premiere annee d 'acquisition, dans l'hypo- 
these ou le materiel a ete acquis en cours d 'annee ; 
cette reduction que l'on appelle "Prorata temporis" 
est proportionnelle au nombre de mois pendant les- 
quels le materiel n'etait pas encore en service. 



Ce programme fournit pour chaque annee 1 'amortisse- 
ment annuel, le montant des amortissements cumules, 
la valeur residuelle comptable apres avoir reproduit 
le detail des donnees . 



A la fin du programme, nous avons reproduit les re- 
sultats obtenus dans deux hypotheses differentes. 
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20 


Conf 


duration d'essai : modele 1 ou 3? niveau 2 
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+ EC 




30 








+ E2 




4Q 


PROGRAMME DE CALCUL D' AMORTISSEMENTS 




+ D8 




50 


Copyright 1982 TRACE et Pierre Lhentier 




+ CE 




60 








+ C4 










70 


CLS : CLEAR 1000SREM83 








80 U7*="###tt###.##" : U9$="t»###tttt#tttt.##":REMCA 








90 PRINT 


= = = = AMORTISSEMENTS 


= = = = ' 


:REM3A 


<? iTpx. 


100 


PRINT 


TAB (12) ;STRING*(31>"-"> :REM51 







110 


PRINT 


REMEO 




i "* 


U^I 


120 


DEFDBL A7C>D>E>F>S I DEFINT K , P :R , T : REMD3 




I 


130 


PRINT 


"»»»» FRAPPER :" : PRINT:REM62 




v ^ v : 


HO 


INPUT 


"- LA NATURE DE L ' IMOBILISATION > " ; A$ : 


REMBD 




^OnV^/ 


150 


PRINT 


: INPUT "- LE PRIX DE REVIENT > ";A ! 


PRINT: 


REM83 


160 


INPUT 


"- LE MONTANT DES AMORTISSEMENTS ANTERIEURS ■ 


" ; C : R 




EM28 










170 


IF A-C<0 THEN 190:REM0B 








ISO 


R=l : 


IF 00 THEN 240 ELSE 200:REM23 








190 


PRINT 


"C'EST TROP ! VERIFIER S.V.P..." : GOTO 160:REMF7 






200 


PRINT 


: INPUT "- LE MOIS D' ENTREE EN CHIFFRES --- 


— >"!R: 


REMFF 




210 


IF R>12 THEN 220 ELSE 240:REM53 








220 

4F 

230 


PRINT 


" !!! FAITES DONC ATTENTION... RECOMMENCED 


> 


: ' :REM 




PRINT 


: GOTO 200:REM0F 








240 


PRINT 


: INPUT "- L'ANNEE CONCERNEE > 19.. ";P 


REM7B 






250 


PRINT 


: INPUT "- LE TAUX D' AMORTISSEMENT > " 


T:REM76 




260 


IF T = THEN 250 ELSE PRINT : B= ( 13-R ) *T/ 12:REMB5 








270 


PRINT 


TABI23) "============":REMD5 








280 


PRINT 


"LE TAUX EFFECTIF AU DEPART EST DE i" ;T; ' 


% X " ; : 


REM17 




290 


PRINT 


13-R; ",'12 =" !B; "%" : PRINT:REM4C 








300 


PRINT 


" >»» POUR CONTINUER I <C). POUR ANNULER 


: (N) ' 


:REM7C 




31D 


J*=INKEY4 : IF J*="" THEN 310:REM0F 








320 


IF J$ = 


"C" THEN 340 ELSE IF J$<>"N" THEN 310:REM9F 






330 


CLS : 


PRINT STPING*(627"»") : GOTO 140:REMD2 








340 


D=INT(A*B)*.01 : E=D+C:REM11 








350 


CLS : 


PRINT "NATURE DE L ' IMMOBILISATION : ";A*:REM28 






360 


PRINT 


"PRIX DE REVIENT : "i USING U7*;A:REM58 








370 


PRINT 


"MOIS D' ENTREE S " J R : PRINT "L'ANNEE DE DEPART 


19"; :R 




EM38 










380 


PRINT 


TAB(22) USING "##";P:REMB4 








390 


PRINT 


"LA DUREE PROBABLE D' UTILISATION EST DE :" 


S100/T 


! "ANN 




EES 


:REMAI 










400 


PRINT 


"LE TAUX EFFECTIF AU DEPART EST DE S" Hi ' 


% X " ; : 


REM9F 




410 

6 

420 


PRINT 


13-R; "/12=" ;B; "%" : PRINT "... ENSUITE" 


;T; "% 


":REMB 




PRINT 


"AMORTISSEMENTS ANTERIEURS : "5USING U7*'i C : 


REMC3 






430 


PRINT 


STRING*(637"=") :REM74 








440 


PRINT 


"N0";TAB(5) "ANNEE";TAB( 18) "ANNUITE"; :REM98 








450 


PRINT 


TAB(33) "CUMULES";TAB<46> "VALEUR RESIDUELLE' 


:REM53 






460 


PRINT 


"---" :TAp f SI — — — — — — "•TADf <m ''_____________" ■ 


:REMEE 






i InDl J/ i IHCH 1J/ i 


470 


PRINT 


TfipiTI \ —————————————— "iTflO/Afci " 


n 


:REMD6 




IMDl JI » i IHDItOJ 




480 


PRINT 


-l;TAB(5)"19"!TAB(7) USING "*#" ;P- 1 ; :REM06 








490 

B 

500 


PRINT 


TAB(31) USING U9*;C; : PRINT TAB(51) USING 


U9*;A- 


C:REMB 




PRINT 


0;TAB<5) "19";TAB(7) USING "##" ;P ; :REMCO 








510 


PRINT 


TAB(15) USING U9*;D; : PRINT TAB(31) USING 


U9$;e; 


:REM78 


"spM^eV 


520 


PRINT 


TAEK51) USING U9J ! A-E iREMF? 








530 


K=100/T : S=E : IF C>0 THEN K=K-1:REM2C 




v-o 


540 


FOR 1 = 


1 TO K : D=INT(A*T)*.01 : S=S+D:REM06 




W 


550 


IF S>A THEM S=S-D : D=A-S : S=A:REM32 




^-^ / 


560 


F = A-S 


: PRINT USING "##"?I! : PRINT TAB(4) 1900+P+I ; :REM20 \ 


^o^/ 


570 


PRINT 


TABI15) USING U9*;D; : PRINT TAB(31) USING 


U9*;s; 


=REM2D 




580 


PRINT 


TABI51) USING U9$;F : NEXT I:REMC1 








590 


PRINT 


TApf4C\ "__ " ■ DDTMT " TAT At - 


-"; :REMFf 




IHd\ 13,' . rKlNI 1 \J 1 HL - 


600 


PRINT 


TAB(15) USING U9$;S-C : PRINT:REMAD 








610 


INPUT 


" >>» POUR CONTINUER. FRAPPER <ENTER> ";Z$:REMEE 






620 


IF Z$ = 


"" THEN 70:REM3B 
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NATURE DE L' IMMOBILISATION : CASA 

PRIX DE REVIENT : 15000.00 

MOIS D' ENTREE I 1 

L'ANNEE DE DEPART : 1982 

LA DUREE PROBABLE D' UTILI5AT ION EST DE 

LE TAUX EFFECTIF AU DEPART EST DE : 25 

. . . ENSUITE 25 % 

AMORTISSEMENTS ANTERIEURS : S50.00 



ANNEES 

12 /12= 25 



NO 

-1 

1 

2 

3 



ANNEE 

1981 
1982 
1983 
1984 
1985 

TOTAL= 



ANNUITE 



CUMULES 



VALEUP RESIDUELLE 



3750.00 
3750.00 
3750.00 
2900.00 

14150.00 



850.00 

4600.00 

8350.00 

12100.00 

15000.00 



14150.00 

10400.00 

6650.00 

2900.00 

0.00 



NATURE DE L ' IMMOBILISATION : CASA 

PRIX DE REVIENT : 1800.00 

MOIS D'ENTREE i 6 

L' ANNEE DE DEPART : 1982 

LA DUREE PROBABLE D' UTILISAT ION EST DE : 

LE TAUX EFFECTIF AU DEPART EST DE : 25 X 

.. . ENSUITE 25 % 

AMORTISSEMENTS ANTERIEURS : 0.00 



ANNEES 

7 /12= 14.5833 * 



NO 

-1 

1 
2 
3 
4 



ANNEE 

1981 

1982 
1983 
1984 
1985 
1986 

TOTAL= 



ANNUITE 



CUMULES 



VALEUR RESIDUELLE 



262.50 
450.00 
450.00 
450.00 
187.50 



0.00 

262.50 

712.50 

1162.50 

1612.50 

1800.00 



1800.00 

1537.50 

1087.50 

637.50 

187.50 

0.00 



1800.00 



programme: 



.Pierre Lheritier 



Am61iorez 
vos traces de courbes 



Le graphisme sur eoran est tres souvent utilise non 
seulement dans les jeux et les programmes a voca- 
tion artistique, mais aussi et sur tout dans les ap- 
plications techniques ou de gestion. Pour etre plei- 
nement utilisables, ces graphiques necessitent un 
calibrage rigoureux des parametres, avec des echel- 
les bien definies et aisement lisibles. 

Le programme decrit permet le trace en coordonnees 
rectangulaires, de la plupart des courbes definies 
par une fonction Y=F(X) au travers d'une grille com- 
pletee par l'echelle des Y a gauche de l'ecran, et 
par celle des X sur une ligne au bas de l'ecran. 

Ce programme a ete ecrit sur TRS-80 Modele 1, Niveau 
II et utilise (et af f ine ) depuis trois ans dans de 



nombreuses applications d'aide a la conception de 
circuits electronlques . 

La pauvrete relative du graphisme est largement com- 
pensee par le saisissant effet de loupe obtenu en 
reduisant la taille des echelle3 des coordonnees. 
Ces echelles peuvent etre redefinies par l'utilisa- 
teur autant de fois qu'il le desire. 

Eh prime, le programme offre a celui qui dispose 
d'une imprimante compatible, une option HARD COPY 
(copie sur papier) de la page d'ecran. 

Le programme comprend huit modules superposes . 

Si vous repondez "N" a la question de la ligne 110, 

la liste des lignes 1998 et suivantes est affichee. 



TRACE N° 4 - Janvier 1983 - 31 



et vous etes mis en demeure d'ecrire la sous-routine 
de votre fonction Y=F(X) alnsi que le nom de cette 
fonction dans une ligne DATA. 

Si la reponse est "0" ou plus simplement ENTER, le 
nom de la fonction est lu dans T$ et affiche a l'e- 
cran . 

Vous etes ensuite invite a entrer les limites de 
l'echelle de X, XI=MINImum et XS=MAXImum . Puis 
l'ordinateur effectue le calcul pas-a-pas des Y par* 
101 passages dans la sous-routine 2000, et les me- 
morise dans un tableau Y ( ) . 

Les valeurs Y1=minimum et Y2=maximum de Y sont re- 
cherchees ainsi que les valeurs correspondantes de 
X, NI et NS. 

Le decompte du nombre de pas restant a calculer est 
affiche dans le coin inferieur gauche de l'ecran 
(pour vous aider a patienter). 

L'echelle des y est ensuite demandee, apres affi- 



chage des valeurs precedemment trouvees pour Y1.Y2, 
NI et NS. 

Apres avoir fixe les valeurs YI=MINImum et YS=MAXI- 
mum de Y, le tableau Y( ) est reeopie dans un ta- 
bleau Y1 ( ), les valeurs exterieures aux limites 
etant remplacees par ces limites. 

Bifin, apres un CLS, sont successivement ecrit3 a 
l'ecran le nom de la fonction, la grille, les echel- 
les Y et X, et pour finir, le trace de la courbe . 

L'acces aux options du Menu terminal 130-500, ecrit 
sur la derniere ligne, est realise par 1 'instruction 
INKEYs" . 

L'option (I)MPRIMER delivre une copie sur papier de 
la page d'ecran (sous-routine 52O-560 apres un Bon- 
dage positif du PEEK ( 11318} qui detecte la dispo- 
nibilite de 1 ' imprimante . Les autres options du 
Menu proposent une redefinition de l'echelle X ou 
Y, ou la fin du programme. 



1 

5 " 

10 
20 
30 
4Q 



Configuration tape : modele 1; 
(C) TRACE et 1 ' auteur 



I6K7 niveau 2 



GRAPHIQUE CALIBRE D' UNE FONCTION 
AUTEUR : ROGER BROUSMICHE 



Y = FIX ) 



« » 


FF 


*• 


FE 


** 


FD 


** 


FA 


** 


EC 


*♦ 


E2 



»****♦ ENTREE EN MATIERE 
50 CLEAR 300 : DEFIIMT I;J : J3=100 
60 CLS : PRINT : PRINT TABI6) 

"GRAPHIQUE CALIBRE 



****** DS 

: DIM Y(J3) -YKJ3) :REM65 



DE 



Y = F ( X )":REM59 



70 P 

SO I 

°0 1 

100 

110 

120 

130 

EM25 

HO 

150 

160 

A 

170 

180 

190 

200 

210 

220 

230 



RINT : PRINT : PRINT:REM30 

NPUT "LA FONCTION Y = FIX) EST-ELLE ECRITE (0/N) "-A*:REMBD 

F LEFT*(A*7l)="N" THEN CLS : GOTO 1960:REMC0 

READ Tt : T* = LEFT$ (TJ.60) : JA=(60- LEN < T$ > > /2: REME2 

PRINT : PRINT : PRINT TAB(JA); T* : PRINT:REMF9 

****** ECHELLE DES X ****** 88 
Y1=1E38:Y2=-1E38 : PRINT : PRINT 'ENTREZ LES LIMITES DE X":R 



INPUT "X MINI 
INPUT "X MAXI 
FOR 1=0 TO J3 



= ";Xi:REM09 
= ";XS:REMF3 
: X=X1+(XS-XI)*I/J3 



G0SUB 2000 



Y(1)=Y:REMC 



IF Y<Y1 THEN Y1=Y : NI=X:REM8E 
IF Y>Y2 THEN Y2=Y : NS=X:REM7A 
PRINT a 96D> J3-I5 : NEXT I:REMAC 
****#* ECHELLE DES Y ****** 
PRINT : PRINT "Y MINI = "Yl" POUR 
PRINT "Y MAXI = "Y2" POUR X = "NS:REM1E 



PRINT "ENTREZ LES LIMITES DE Y" : INPUT "Y MINI = ";YI:REMC8 



38 

X = "NI:REM49 




240 INPUT "Y MAXI = " 5 YS : FOR 1=0 TO J3 : Yl ( I )=Y ( I ) :REM2E 

250 IF YdXYI THEN Y1*I)=YI ELSE IF Y(I)>YS THEN Yl < I >=YS : REM67 

260 NEXT UREM2B 

270 ' ****** ECRITURE DE LA GRILLE ET DES ECHELLES ****** F 

1 

280 CLS : PRINT TAB(JA); T$:REM54 

290 FOR 1=72 TO 842 STEP 64 : PRINT 3 I. STRING$ (51 ,".")\ :REM4F 

J=0 TO 51 STEP 5 : PRINT a I+J?"!"i : NEXT J»I:REM07 
NT a 896- " YC X";CHR*(94) ; :REM89 

1=0 TO 12 : Y=YS-<Y5-YI)*I/12:REM36 
STR$(Y> : IF LEN(Y*)<9 THEN Y*=STR ING*( 8-LENI Yt ) , " ")+Y»: 

NT a 64+64*1. Y$ ; : NEXT I:REM12 

1=0 TO 5 : X=XI+<XS-XI)*I/5:REM83 
NT 3 903+1*10; STRS(X); : NEXT I:REMB5 

****** TRACE DE LA COURBE ****** 3D 

I=Q TO J3 : Jl=INT(4.5+3fe*(YS-Yl(I))/(YS-YI)):REMFF 
1=0 OR (J1>=JB AND JK=JH) THEN JB=J1 : JH=JB:REM6B 
JKJB THEN JH = JB-1 : JB=J1 
J1>JH THEN JB=JH+1 : JH=J1:REM1E 

J=JB TO JH : SET (I+16-J) : NEXT J7l:REM5F 

****** MENU TERMINAL ****** 51 
NT a 964 > 
JMPRIMER > NOUVELLE ECHELLE (X) OU (Y) 7 OU (F)IN ? " 



300 


FOR 


310 


PRI 


320 


FOR 


330 


Y* = 


REM7A 


340 


PRI 


350 


FOR 


360 


PRI 


370 


' 


380 


FOR 


390 


IF 


400 


IF 


410 


IF 


420 


FOR 


430 


' 


440 


PRI 
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; CHR$ (14) ; 


450 


A$ = INKEY* : 


460 


IF A*="I" PR I 


ME1 




470 


IF A*="X" PR I 


480 


IF A*="Y" PRI 


490 


IF A$="F" PRI 


500 


GOTO 450 :RE 


510 


#****» H 


520 


IF PEEK ( 1431 


b3U 


FOR 1=0 TO 14 


540 


LPRINT CHR* ( 


550 


NEXT J : LPRI 


560 


RETURN:REM3C 


1950 


*»#*** S 


1960 


PRINT "ECRIV 


197C 


PRINT "ECRIV 


0":REM48 


198C 


PRINT "FAIRE 


199C 


PRINT "EXEMP 


CHR«(34) ;T$!CHR$( 


2000 


Y=1.27324*(C 


201C 


RETURN :REM8D 


2020 


DATA "Y = 4/ 



:RE(199 

IF A$="" THEN 450 

NT A* ; CHR$(15) i 



:REM90 

: GOSUB 520 



GOTO 440 :RE 



NT A$ : GOTO 130 :REM52 

NT A$ : GOTO 210 :REM48 

NT A* : END:REMF1 

ME5 

ARD COPY **#*** 01 

2) >127 THEN 560 :REM63 
: FOR J=0 TO 63:REMCB 
PEEK (15360+I*64+J) ) ; :REM15 

NT : NEXT I : LPRINT STRING* (63 




-") :REM10 



OUS-ROUTINE Y=F(X) DE L'USAGER **#»** 5B 

EZ LA FONCTION Y=F(X) EN LIGNE 2000":REM0D 

EZ LE NOM DE LA FONCTION DANS LA LIGNE DATA 202 

'RUN 11 ' : PRINT : READ T$:REM74 
LE : " : PRINT "2000 ";T* : PRINT "2D20 DATA "; 
34) : END:REMFF 
0S(X)-C0S(X»3)/3+C0S(X»5)/5):REI133 

PI ( COS X - 1/3 COS 3X + 1/5 COS 5X )":REMC7 



¥ = A/PI ( COS K - i/3 COS IX + 1/5 COS 51 ) 





i i 


■ 


i 


i i 


■ 


i i 


i 






i i 
i i 


■ 


1 i 


i^^ i * 


i 


i i 






■ 


■ ■ 




5 1 ' ' ' l ' ' t ' ' 1 

.23 \. .'....'... .'. /.'. .' ,.'.£,■ ' i I 1 
I'l..'.... 1 . .'.I. 1, ,' ' 1 ■ ' 'J' 


-.25 '.l.. 1 ' '.I.-' ' i.Al " i.. f i 


-.5 !.l 
-1 !..l 


i i 
i i 


1 


1 i 
i 
i 


i i 
i i 


1 i 


i i 


1 i 


-1.25 !..' 


..•!.... 


i i 
i i 


t 

i 


1* *»-5 


-3 




-i 


1 




3 


5 



Fig. 1 

La figure 1 represente, aveo une echelle normale, 
la courbe de la fonction Y=F(X) choisie a titre 
d'exemple. 



Y» 


4/PI 
i 


( COS X 
1 1 


- 1/3 COS 3X 
i i 


+ 1/5 C0B5K ) 
i ■ i i 










i 


1 1 


ri i 


^K i 


i i 
I 1 


i 




i 


1 1 , 


i 








i 


1 J 1 


..'. . i 








1.182'....'....'/..'....'....'....'.,.' \' ' ' 








1 .m ,_ 




1 1 


i i 


1 I 


i ^^^ 




1* *» -.B 




-.93 


-.81 


.11 


.13 


.15 



Fig. 2 

A l'aide du "microscope" incorpore au programme, 
on en tire la figure 2 qui montre le centre de la 
figure 1 magnifie 100 fois en horizontal et 1000 
fois en vertical . 



Y » 4/PI ( COS X - 1/3 COS 3X ■» 1/5 COB 51 ) 

3£_gj ^ ^^^^ _ i 

2 5E-€4'.... '....!....'..\ '....!•. ..!.■• •!■•••!■■■■!■■••! 

2E-4U !!■■'■ a !• V a ««. !■*■• !•••■!■••-!•■•. !••■•! 

l.SE-H!.... '.....'..... !...|l.... !.,..!....!....!....!....! 

1E-84 '.,..!.. ..!....!... V.... !....!....!.... !....!....! 

5£-fl5 ' ' ' ' \ 'iMt'ini'iniSni'.iiii! 

I '....!....!.... !....(....!.... I....!. ...!... •!■■••! 

-5E-B5 !....!.... !....!....|... !....!....!....!.. ..!....! 

-1E-4W I.... I....!....!.... v.. !....!....!....!....!.... ! 

-1 5E-84 1 ' ' ..'•■■. !!••• !*■••!■■••!■■••!■.■■!•>■> ! 

-2£-§4 '■■.!■■■■!«...!■■«■ !*• • !■■■•!■ !•■ !■•■■!«■■• !•#■•! 

_2 Kjji i i i , 1 | | 11 , 1 , l , , tlM ! IM ,!, M .!,„,! 

-3E-M '....!....!....!.... ' .^^^^■B.i^liiBialiiiiiiiiiiiiM 

1* J+ 1.37* 1.570*, 1.57W 1.5712 1.5716 1.572 



Fig. 3 



Plus fort encore ; en poussant 1 'agrandissement a 
5(200 fois dans chaque direction, on obtient la fi- 
gure 3 qui, sans aucune amblguite donne la valeur 
d'une racine de Y, c'est-a-dlre X=1 .5708=Pi/2 pour 
Y=0 (pour memoire Pi=3.1tl6). 



Pour terminer, un mot au sujet du choix des echel- 
les. On obtiendra en general de bons resultats lors- 
que la taille de 1 'echelle X divisee par 5, et celle 
de Y divisee par 12, representent des nombres sim- 
ples, ne comportant pas plus de 2 chiffres signifi- 
catifs. Autrement, il faut s'attendre a lire des 
nombres farfelus... 



Roger Brousmiche 
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jeu. 



Et bien, jonglez maintenant 




xB. 



Vous avez probablement deja vu a la television ou 
au cirque, ces jongleurs qui font tourner des as- 
siettes sur des tiges de bambou ? 

Nous vous proposons aujourd'hui de faire connaissan- 
ce avec cette saine distraction, mais sans risque de 
casse ! Qui osera dire apres que l'ordinateur ne fait 
pas faire des economies ! 

Le prlncipe est fort simple : vous demarrez le jeu 
avec neuf assiettes tournant a pleine Vitesse sur 



neuf tiges de bambou. Au fur et a mesure que le temps 
passe, la Vitesse de rotation des assiettes diminue 
et, lorsqu'elle arrive a trente tours par minute, 
l'assiette tombe . . . Vous devez done veiller sans 
cesse a entretenir le mouvement de facon a eviter 
cette conclusion fatidique, en pressant un chiffre 
compris entre 1 et 9. correspondant au numero de 
l'assiette en peril. 

Ce n'est qu'apres seulement, que vous pourrez envi- 
sager de vous entrainer sur de vraies assiettes . . . ! 




10 '-- CONFIGURATION TYPE 

20 ' EC 

30 CLS:REM5E 

<rQ PRINT" 

ASSIETTES 

■***♦#**** 



m o d e I e 



OU COMMEMT APPRENDRE A TAPER 
LES YEUX (PRESQUE) FERMES 

NESTOR PERBERUT 

AiL I AS 
ATTAL JEAN-CLAUDE 
":REMB7 

50 ' Copyriahl TRACE et l'auieur 
60 ' C* 

70 FOR i( = l TO 2500 :REM57 
80 NEXT:REM29 
90 ' A6 





CE 
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ss 




'A TRENTE TGURS/M 

STR1NG$<22. "*") : 
"* NIVEAU = 



100 ' INITIALISATION 

110 CLEAR 150:REM44 

120 DEFINT X*REW97 

130 DIM A(9):RCM29 

140 C0=48 ' C0>31 

150 C1S=CHR*(C0+1» :REM25 

160 C9*=CHR$<C0+9) :RLMUB 

170 CR*=CHR*< 24) :REM1A 

180 CC*=CHR$( H3) :REMtl> 

190 NI=0:REMA6 

200 FOR X = l TO <>:REM63 

210 A(X)=120*RND' 2D) :RtM'L 

220 NEXT:REM9D 

230 ' 1A 

240 CLS:REM8C 

250 PRINT TABI28) ! "ASSIET1EB ":REMD1 

260 PRINT:REM49 

270 PRINT "VOUS BEVEZ FAIRE T CORNER 

AMBOU. " :REMD1 

280 PRINT TAB( 11) 5 

290 PRINT:REM2B 

300 PRINT TAEM21); 

310 PRINT TAEM21) i 

320 PRINT STRING$<64. "■*"> s :REMB9 

330 PRINT"*"; :REM5A 

340 FOR X=l TO 9:REMD6 

350 PRINT " ";CHRI(CO+X ) ;" *" 

360 NEXT:REM10 

370 PRINT "*";STRING*<62- "-")!"* 

380 PRINT "«";TAB(63);"*";:REMF6 

390 PRINT "»">TAB<63) S"*"5!REMEC 

400 PRINT SrRING*<64. "*") i :REM69 

410 PRINT 3 896. "QUELLE TIGE DE BAM 

420 ' 5B 

430 ' BOUCLE DE JEU — 

440 NI=NI+. 1JREM18 

450 PRINT 3 421. INT ( 21 NI ) ; : REM8A 

460 PRINT Si 932." "!:REMF8 

470 A$=INKEY*:REM26 

480 IF AS>C* OR A*<C1$ THEN 510:RE 

490 A(ASC(A*>-C0)=120+RND(20) :REMB1 

500 PRINT CR*; A$;:REMC5 

510 PE=0:PEM67 

520 TA=634:REMEF 

530 FOR X=l TO 9:REM17 

540 A«X)=A(X)-( 1+RND(0) )*N1 :REM57 

550 TA=TA+7:REMD5 

560 PRINT a TA." " ! INT ( A ( X ) ) ! : REM4E 

570 IF A(X)<30 THEN PE = X: X=9:REME6 

580 NEXT X:REMDB 

590 IF PE=0 THEN 440:REM25 

600 ' A6 

610 ' FIN UNE ASSIETTE 

620 PRINT a 896. STR1NG$(40." ">;:R 

630 PRINT a 896. "CHUTE DE L'ASSIETT 

INT(2CNI>". AUTRE PARTIE <0'N> > 

640 TP=0:REMD5 

650 PRINT CR*: :REMCE 

660 IF CU=32 THEN CU=143 

670 TP=TP+l:REM45 

680 IF TP>36 THEN 640 ' 

690 A*=INKEY*:REM49 

700 IF A*<"N" THEN 670:REM7F 

710 IF A*="0" THEN 110:REM80 



AND C0<82 SELON LA PARTIE DU CLAVIE 

\ 




VOS ASSIETTES SUR 9 T 

INUTE. ELLES TOMBENT." 

REM8B 

«":REMF7 



IGE5 

:REM 



DE B 
D'6 



EI18D 
REM34 

BOU ACTIVER 




? ";:REMA4 



MB1 




EST TOMBEE 

ENA9 

E " CHR*(CO+PE>" . AU 

! =REM63 



PRINT CC*; ELSE CU=32: PRINT 
TP=TEMPO CLIGNOTEMENT 82 



- 9C 
NIVE 



AU " 



'■ :REM5D 





-Jean- Claude Attal 
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utilitaire. 



Des ou is pour 
votre programmation (ill) 



Le code machine 
instructions ad 
ler "relogeable 
priori quelconq 
execute qu'a 1' 
assemble (dlrec 
code machine du 
etre execute qu 
curiosite nous 



du Z80, bien que possedant quelques 
equates, n'est pas a proprement par- 
". Cela signifie qu'un programme a- 
ue ecrit en assembleur ne pourra etre 
adre33e memoire pour laquelle il a ete 
tive ORG de 1 'assembleur ) . Ainsi, le 
programme de la figure 1 ne pourra 
a partir de l'adre3se 7E00H. Si par 
changeons son origine (ORG 7F00H par 



exemple), nous voyons que les codes generes par les 
instructions "CALL BLANC" et "LD HL, TEXT" ont ete 
modifies d'une valeur egale a la difference entre 
les deux origines . Aussi, si nous devons (pour une 
cause quelconque) deplacer notre programme initial 
d'une valeur relative delta , nous ne pourrons 
l'executer correctement qu'apres avoir ajoute ou re- 
tranche cette meme valeur aux codes generes par les 
deux instructions "CALL BLANC" et " LD HL, TEXT". 



00010 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 



ORG 
MIL EQU 
ESSAI CALL 
LD 
LD 
LD 
LDIR 
JP 
5 
! Routine de 

BLANC LD 

PUSH 

POP 

DEC 

LD 

LD 

LDIR 

RET 



TEXT 
LG 



DEFM 
EQU 

END 



7E00H 
3C00H+512+32 



mi 1 i eu scran 



BLANC ; mise a blanc ecran 

HLjTEXT ; adresse texte a afficher 

DE?MIL ; en milieu d'ecran 

BC?LG ; longueur texte 

; transfert memoire 

6CCH ; retour au BASIC 

mise a blanc de 1 ' ecran 

DE73C01H 

DE 

HL 

HL 

(HL) 7OFFH 

BC;1023 



' C0UC0U.. . ! ' 
$-TEXT 

ESSAI 



Ne sortez pas deja vos mouchoirs : il y a heureuse- 
ment plusieurs solutions a ce probleme ! L'une d'el- 
les conslste - au moment de l'ecriture du programme 
source - a dresser une table contenant les valeurs 
a retoucher avant execution. Notre programme initial 
prendra alora 1 'allure de celui donne en figure 2. 
Notez que les valeurs a retoucher sont les octets 



+1 et +2 des adresses pointees par chaque element de 
la table (deux dans notre cas ) , celle-ci se terminant 
par un double zero. Naturellement , le programme s'en 
trouve allonge mals cela n'a que peu d' importance 
puisqu'apres 1' operation de "relogement" , il retrou- 
vera sa taille primitive, la table n'etant plus d'au- 
cune utilite. 



00010 
00020 
00030 
00040 
00050 
00060 
00070 
00080 



MIL 

ESSAI 

REL1 



ORG 

EQU 

CALL 

LD 

LD 

LD 

LDIR 

JP 



7E00H 

3C00H+512+32 

BLANC 

HL;TEXT 

DE7MIL 

BC7LG 



6CCH 



; mi 1 ieu ecran 
mise a blanc ecran 
adresse texte a afficher 
en m i 1 i eu d' ecran 
l onsfueur texte 
transfert memoire 
retour au BASIC 
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Q0Q9D 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 



Routine de mise a blanc de 1 ' ecran 



BLANC 



TEXT 
LG 

■ 

TABREL 



LD 

PUSH 

POP 

DEC 

LD 

LD 

LDIR 

RET 

DEFM 
EQU 

DEFW 
DEFW 
DEFW 
END 



DE73C01H 

DE 

HL 

HL 

(HL)fOFFH 

BC71023 



' COUCOU. 
*-TEXT 



ESSAI 
REL1 
0000 
ESSAI 



Table de reloaement 
fin de la table 



Le programme etant ainsi ecrit des sa conception, il 
suffira ensuite de faire appel a un utilitalre ecrit 
speeialement dans ce but, en lui fournissant l'adrea- 
se de la table de relogement et la valeur delta 
(difference entre 1 ' adresse d ' implantation et l'adres- 
se d'execution). Enf in . . . ! Ne dites pas que c'e3t 



plus difficile que de calculer la vltesse relative 
entre deux trains ! Vous voulez 1 'utilitalre en ques- 
tion ? II se trouve a la figure 3... Nous n'en par- 
lerons pas davantage pour 1' instant mals nous le res- 
sortirons de nos cartons lorsque nous aborderons le 
programme moniteur BASPY. 



00010 


9 




















00020 


■ 
1 


UTILIT 


DE 


RELOGEMENT 










00030 


1 


(Peut 


etre 


ecrit en relat 


if) 








00040 


a 
1 




En 


entree 


: HL = adresse 


absolue de 




00050 


■ 

» 










la ta 


ble 


de 


reloaement 




00060 


■ 
1 










DE = <delt 


a> 








00070 


■ 
1 




















00080 


REL0 




EQU 




$ 




■ 






00090 








DEC 




HL 






pointe table -1 




00100 








PUSH 




HL 






sauve adr table 




00110 








POP 




IX 






dans IX 




00120 


SRE 




LD 




Li(IX+l> 










00130 








LD 




A;L 










00140 








OR 




A 






si zero? fin table 




00150 








JR 




Z7FINREF 










00160 








LD 




H7 (IX + 2) 






element table dans HL 




00170 








ADD 




HL7DE 






on aJoute delta 




00180 








PUSH 




HL 










00190 








POP 




IY 






on passe dans IY 




00200 








LD 




L»(IY+1) 










00210 








LD 




H7 (IY + 2) 






HL=valeur a reloser 




00220 








ADD 




HL7DE 






on lui aJoute delta 




00230 








LD 




(IY+1) »L 










00240 








LD 




(IY+2);H 






et on la replace 




00250 








INC 




IX 






element suivant 




00260 








INC 




IX 






de la table 




00270 








JR 




SREF 






et suite* i • 




00280 


FI 


EQU 




$ 






c' est f ini 




00290 








RET 








■ 






00300 








END 
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1 


GOTO 3 






2 


<contient le prosramme 








principal en code machine> — 






3 


A=PEEK( 16548 )+256»PEEK ( 16549) 




. 


4 


IF A>32767 THEN A=A-65536 






5 


IF PEEK(A+2)=7 THEN 6 ELSE A=PEEK(A) 






+256*PEEK(A+1) : GOTO 4 






6 


POKE A+5>PEEK(16414) : POKE A+6 


>PEEK( 16415) : 




A1=INT( (A+4)/256) : POKE 16414 


»A+4- 


Al*256 : 




POKE 16415>A1 : PRINT ' ( Tss ! 


Tss 


! ) 


7 


' < routine d' ini t ial i sat ion 

en code machine > 







Mala noua prof Herons de cet enchalnement pour de- 
tainer la 8tructure adoptee pour l'ecriture de 
BASPY. Le "cheval de Trole" qui va nous permettre 
de passer inapercus aux yeux de 1 'lnterpreteur pos- 
sede 5 llgnes de "vrai" BASIC et deux "llgnes" de 
langage machine comprenant a elles deux quelques 
1500 octets de code... (voir figure 1), le tout ecrlt 
en assembleur selon la methode decrlte dans le nume- 
ro 3 de TRACE. Lorsque nous vous dlslons qu'une ll- 
gne BASIC peut parfois etre plus longue que prevu ! 
La llgne 2 en langage machine est le programme monl- 
teur proprement dlt ; la llgne 7 est la sequence 
d'lnltlallsatlon (relogement de la llgne 2 en parti- 
culler). Comme nous l'avons deja slgnale, cette 
structure permet un grand confort d 'utilisation pula- 
que le programme se charge comme un vulgalre program- 
Be BASIC, a'inplante la oil 11 y a de la place et 
s' auto-protege (place avant le "buffer" BASIC). Le 
programme etant Initialise, 11 ne restera plus en 
memoire que les deux premieres llgnes, c'est-a-dire 
le principal ! 

La llgne t n'est la que pour sauter la llgne 2(c*est 
preferable !). La llgne 3 calcule l'adresse de debut 
du "buffer" BASIC contenue dans les cases memoire 



10A1H et 10A5H. La llgne 1 r^a Juste cette valeur pour 
la rendre entlere (comprise entre 32767 et -32768). 
La llgne 5 recherche l'adresse absolue de la llgne 7 
(voir structure llgne BASIC dans TRACE n" 3) qui rap- 
pelons-le, contlent la sequence d'lnltialisation. 
Branchement aur la llgne 1 le cas echeant . En llgne 
6, l'adresse de la llgne 7 est trouvee et eat conte- 
nue dans A. Des ce moment, on range dana les octets 
5 et 6 de la llgne 7 l'adresse du "driver" video 
(tlens, tlens !)... contenue dans lea cases memoire 
101EH et 101FH (16111 et 16115 en decimal) et on fait 
pointer le nouveau "driver" video vers 1 'octet 1 (le 
cinquleme en partant de zero) de la llgne 7... 
Mystere, mystere ! Et si malntenant on execute un 
petit ordre PRINT (fin de la llgne 6) 7 Que va-t-11 
se passer d'apres vous 7 Eh blen on se branchera 
tout slmplement sur cet octet 1 de la sequence d'lnl- 
tialisation pour executer le code machine qui y est 
contenu ! Vol la un moyen comme un autre pour dviter 
USR, DEFUSR ou POKE... Toujours est-11 que d'un sim- 
ple coup d'alle, .nous avona subreptlssement quitte 
BASIC pour entrer dans les nuages . . . A blentot ! 



-Alain Plnaud 



bricolage zz 

Un doubleur de disquettes 

pour 1,50 F 




Le numero ** de TRACE paralsaant en fin d'annee, il 
ne a'agit evldenment pas d'un canular de ler avril, 
mals d'une reallte accessible h chacun d'entre nous, 
heureux posaeaseurs d'un TRS80 et d'un ou plusieura 
drives 5"'/M simple face (les possesseurs de drives 
double face dolvent lmperatl vement tourner la page, 
sous peine de faire une depression nerveusej. 

En examlnant les disquettes couramment uti Usees, il 
apparatt qu'elles comportent toutes une fenetre de 
lecture /enregistrement sur chaque face, que les deux 
faces magnetiques ont le memo aspect - done sont aus- 
ceptiblea d'etre exploitees toutes deux -, mals, et 
e'est la qu'intervient le genie du commerce a haut 
niveau, la pochette de protection est con9ue de ma- 
nlere a ne pouvoir utllioer desdites disquettes que 
sur une seule face, d'oii la creation de materlela et 
d'habitudes de travail "simple face" et "double face" 

pour un meme produit II convient de signaler, tou- 

tefols, que l'emplol du procede decrit ci-apres (qui 
n'est pas nouveau, mais qu'il eat bon de remettre en 
memoire), differe quelque peu de celul des produita 
"double face", mala donne exactement. le meme resultat 
final, pour un prix de revient pratiquement nul (voir 
le titre, et lea explications qui suivent), immedia- 
tement, et avec le materiel en votre possession Mil 

Or done, comment doubler une dlsquette pour une de- 
pense ausai minlme ? Rlen de plus simple. Procurez- 
voua. si vous n'etea pas un habitue du tierce, une 
plnce - element indispensable a l'exercice peril leux 
qui conalate a cholair, chaque dlmanche, les chevaux 



qui auraient du arrlver le3 premiers pour eviter a 
la majorite des Joueurs des regrets eternels constam- 
ment renouveles -, dans un P.M. U.< 1,50 F) . Cet outil, 
qui realise parfois des miracles, va tout slmplement 
doubler votre capital disquettes avec, 11 est vral, 
un peu de travail personnel et beaucoup de soin. 

ATTENTION : les disquettes sont des elements fraglles, 
et 11 importe de sulvre les conaella habltuels de 
prudence, tout au long des manipulations suivantes. 

Trace du gabarit (figure 1) 
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Posez une feuille de papier caique sur une disquette 
normale simple face (evidemment !>, cote etiquette, 
et dessinez successivement, a l'aide d'un crayon gras, 
sana appuyer, les 4 coins de la pochette, le trou 
centralde la pochette {0 40 mm), le petit trou late- 
ral (0 6 mm), les 2 petits crans situes sous la fe- 
netre de lecture (deux demi-cercles de Q 2,5 mm), et 
le cran lateral, que vous recouvrez habituellement 
d'un morceau de ruban adhesif, afin d'inhiber la pos- 
sibility d'ecriture (6x4 mm). 

Decoupe du gabarit (figure 2) 




Decoupez, a l'aide de ciseaux, les 4 cotes de la po- 
chette (car re de 133 mm), et le trou central ; avec 
la plnce miracle, vous decoupez : les deux petits 
crans inferieurs, le cran lateral (en 2 fois) ; res- 
te a executer le principal : le petit trou lateral 
Vous tracez, sur votre gabarit, deux traits paralle- 
les au cote inferieur (qui comporte les petits crans), 
au-dessus et en-dessous du petit trou lateral, puis 
vous faites 2 coupes comme indique sur la figure. 
NE PAS DEPASSER LE TRACE INDIQUE. 
Utilisation du gabarit (figure 3) 




Vous etes, maint 
que vous pouvez 
stock de disquet 
ment sur du papi 
Pour proceder a 
la pochette de 1 
le disque magnet 
disposer le gaba 
l'etiquette, en 
a la partie infe 
teral du gabarit 



utile 



enant, en possession d'un gabarit 

si vous le desirez, et si votre 
tes le necessite, reproduire exacte- 
er fort, genre bristol, par exemple . 
la modification proprement dite de 
a disquette (aucune intervention sur 
ique en lui-meme . . . ) , il vous faut 
rit sur la pochette cote oppose a 
faisant coi'ncider les petits crans 
rieure, et en disposant le cran la- 
st 1 ■ oppose de celui de la pochette. 



Pendant toute 1 'operation suivante, le gabarit ne 
doit en aucun cas glisser par rapport a la pochette. 
Collez-le a l'aide de 1 morceaux de ruban adhesif 
sur la pochette, par precaution. Positionnez la pln- 
ce a 1 'emplacement du cran lateral, et decoupez la 
pochette en 2 fois, comme dan3 le gabarit (la forme 
restante, en accolade, n'a aucune importance). 



Glissez, ensuite, la languette mobile de la pince en- 
tre le disque magnetlque et la pochette, celle-cl se 
trouvant done prise dans la raachoire de la pince ; 
executez, en 2 fois, la decoupe suivant le trace ini- 
tiaHmeme remarque, pour le fond de la decoupe, que 
precedemment) . A ce moment, 5 miracle !, vous vous 
apercevez, en observant de pres, que la longueur de 
l'encoche formee par la pince (pour une seule coupe, 
bien entendu), interdlt a celle-ci d'aller plus avant, 
done d'approcher la partie utile du disque, d'oii au- 
cun danger de rayer les pistes magnetiques (non, la 
tete ne resterait pas indefiniment sur la meme piste, 
repetant eternellement les memes instructions ! — ). 
La, 11 convient d'ouvrlr une parenthese : certains 
esthetes objecteront que la forme des decoupes est 
peu conforme au modele, et qu'll existe des petits 
perforateurs a un trou - pour ecoliers - qui respec- 
tent le "design" d'orlgine. Certes . Mais lesdits per- 
forateurs peuvent impunement, en raison de leur tail- 
le, s'en aller patlner joyeusement sur lesdites pis- 
tes magnetiques, et vous devinez la suite... Laissez 
done au vestiaire ces considerations, aussi distin- 
guees fussent-elles, et faites en sorte de vous re- 
trouver avec un stock de disquettes double en moins 
de temps qu'il n'en faut pour aller en acheter d'au- 
tres . . . 

Bien entendu, arrives a ce stade, et apres avoir re- 
ferme la parenthese, vous aurez remarque que, si le 
cran lateral est identlque a son vis-a-vis, 11 n'en 
est pas de meme pour le trou lateral ; qu'a cela ne 
tienne, 11 suffit de placer le gabarit de l'autre 
cote de la disquette, et de repeter l'operation du 
bon cote ! A ce moment, la disquette est uti Usable 
immediateraent. Prenez soln, toutefois, de vous assu- 
rer qu'aucun dechet de papier, si petit soit-il, ne 
se soit glisse dans la pochette de la disquette. 

II ne vous reste plus qu'a raettre une etiquette vier- 
ge sur cette nouvelle face, et a introduire le tout 
dans le drive idoine, puis a "backuper" le disque de 
votre choix. Sur 40 disquettes en ma possession, je 
n'en ai trouve que deux qui aient ete ref usees (back- 
up rejete) pour des defauts de surface. 
Un dernier true : 



Si vous utilisez un loglciel genre "UTILDIR", ou au- 
tre, pour cataloguer vos disquettes - e'est indis- 
pensable -, faites la chose suivante : dans le cas 
du programme precite, la capacite du catalogue est 
de 80 disquettes maximum ; nuraerotez vos disquettes, 
sur la face "Origine", de 1 a 10 (prevoyez de le fai- 
re si vous avez moins de 40 disquettes), et numero- 
tez la face opposee de chaque disquette en ajoutant 
40 au nuraero de la premiere face. C'est une astuce 
qui vous fera gagner beaucoup de temps ulterieurement, 
Au dela, 11 est bon de creer une disquette catalogue 
par rubrique (utilitaires, jeux, etc...), et de fai- 
re suivre chaque numero d'un code correspondant (ex: 
32 J, 4 U, etc.). 

CONCLUSION 



En cette fin d'annee, qu'il me aoit permis de sou- 
haiter un Joyeux Noel a tous (y compris a ceux qui 
n'utiliseront pas ce procede, voire meme a ceux qui 
possedent un autre micro-ordinateur que le TRS80 - 
il en faut...), l'economie realisee au prix de quel- 
ques instants de patience vous permettant d 'acheter 
les dernieres nouveautes en matiere de jeux sur dis- 
quettes !... Ah ! j'oublials.. . 11 est bien entendu 
que la deuxieme face des disquettes de jeux que vous 
achetez dans le commerce - ou que l'on vous off re -, 
est justiciable du mime traitement, ce qui amortit 
quelque peu le prix d 'achat dudit Jeu . . . 



.Daniel Levasseur 



TRACE N' 4 - Janvier 1983 - 39 



initiation, 



Les graphiques 
du TRS (II) 



Comme nous 1'avons vu, le BASIC off re de grandes 
facilite dans la manipulation des chalnes de carac- 
teres. Dans certains oas (comme ceux que nous allons 
etudier), toutefois, 1' animation graphique ne peut 
se falre a l'aide de chalnes, a cause de la lenteur 
du BASIC. Dans ces cas, la seule solution est de se 
plonger dans un programme en langage machine (ou LM) 
qui realisera 1 'animation desiree . Le LM effraie 
nombre de debutants . . Jl faut avouer que la moindre 
manipulation en LM exige une bonne seance de frappe 
sous assembleur, suivie d'une mise au point parfois 
laborieuse sous moniteur. Eli contrepartie, la grande 
rapidite du LM permet de concevoir des effets visuels 
dont l'utilisateur du seul BASIC ne peut que rever . 

L'ambition de cet article est de fournir des routi- 
nes facilement utilisables dans tout programme BASIC, 
et pouvant se reloger a divers endroit de la RAM uti- 
lisateur, sous certaine3 restrictions precisees pour 
chaque routine. Une comprehension totale du fonction- 
nement de ces sous- programmes en LM reclame une ha- 
bitude de la orograramation en assembleur, et n'est 
par ailleurs pas necessaire pour leur utilisation . 

Lesdites routines en LM se chargent a partir de pro- 
grammes BASIC comportant des DATA. Les TRS-80 munis 
des anciennes ROM (message"MEMORY SIZE") effectuent 
parfois des RESTORE intempestifs et non programmes, 
a cause d'une erreur dans cette ROM. Pour eviter ce- 
la, il est preferable de faire un POKE 16553,255 
apres la mise sous tension. 

Nous avons parle de rapidite, conf rontons done le 
BASIC et le LM sur un probleme simple : comment blan- 
chir l'ecran du TRS-80 ? La solution consiste a ntet- 
tre dans chaque octet de la RAM video le code 191, 
qui est celui du bloc graphique blanc. La methode 
BASIC est la suivante : 

10 DEFINT I-J : J= 191 : REM J est le code du CG blanc 
20 FOR 1=15360 TO 16383 : - POKE I, J : NEXT : REM ce 

CG est "poke" dans toute la RAM video 
30 FOR 1=1 TO 2000 : NEXT : REM temporisation 
40 END 

Temps d' execution : 4 a 5 secondes . Plutot lambin, 
non ? Passons a la methode assembleur. \a routine 
BLCECR proposee fait strictement la meme chose que 
les lignes BASIC 10-20 precedentes, a savoir mettre 
des 191 dans tous les octets de la RAM video. Sa 
liste en assembleur est la suivante : 



10 



110 BLCECR EXX 
120 EX 



ORG 7F00H ; place la routine 255 oc- 

tets avant la fin de la 
RAM 
; voir texte ci-apres 
AF.AF' : idem 



130 


LD 


HL, 15360 


14Q 


LD 


BC, 1024 


15(3 BCL1 


LD 


(HL), 191 


160 


INC 


HL 


170 


DEC 


BC 


180 


LD 


A,B 


190 


OR 


C 


200 


JR 


NZ.BCL1 


210 


EXX 




220 


EX 


AF.AF' 


230 


RET 





HL, 15360 ; HL pointe sur le debut de 
la RAM video 

BC est le nombre d' octets 
de l'ecran 

blanchit le caractere 
pointe par HL 
passe au caractere sui- 
vant 

decremente le compteur 
d' octets 

A=B©C, nul si et seule- 
ment si B et C sont nuls 
( ffl est le symbole du 0U 
logique) 

si BC est non nul, blan- 
chit 1 'octet sulvant 
si BC est nul, e'est fini 



retour au BASIC 



Les lignes 110, 120, 210 meritent un mot d' explica- 
tion : le Z80 possede deux series de registres A, F, 
B,C,D,E,H, L. Les programmes contenus dans la ROM BA- 
SIC n'emploient qu'une seule serie de registres, 
1 'autre est done disponible pour l'utilisateur. 
L'instruction EX AF.AF' eehange les registres A etF 
des deux series, tandis que l'instruction EXX eehan- 
ge les registres B a L. Cela permet d'utiliser li- 
brement les regi3tres du Z80, sans devoir les sauve- 
garder par des PUSH, puis les restaurer par des POP. 
Mais pourquoi se faire du souci au sujet de ces re- 
gistres, au fait 7 Tout simplement paree que le BA- 
SIC y stocke parfois des informations vitales pour 
son bon fonctionnement . Toute alteration des regis- 
tres produit dans ees cas un "plantage" de l'ordina- 
teur lors du retour au BASIC (instruction RET de la 
routine) . Done sauvegarder systematiquement les re- 
gistres en debut de routine, puis les restaurer avant 
le retour au BASIC, est une mesure de seeurite. C'est 
ee que nous faisons en echangeant les deux series de 
registres au debut et a la fin de chacune de nos rou- 
tines en LM. 



Preoccupons-nous a present de mettre en oeuvre notre 
routine BLCECR. II s'agit de la placer par des POKE 
en haut de la memoire, les codes-op de la routine 
etant contenus dans une ligne de DATA. Remarquons 
que la routine doit etre placee en memoire protegee, 
ce qui necessite une initialisation correcte du pa- 
rametre "MEMORY SIZE". Par contre, son adresse de 
debut (qui est aussi son adresse de laneement) peut 
etre quelconque, il faut simplement qu'elle soit 
tou jours en memoire protegee. Pour cette routine 
comme pour les suivantes, la variable A (ligne 20 
du programme BASIC) sera 1 'adresse de debut de la 
routine, et la taille memoire devra avoir la meme 
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valeur que A (32512 dans notre exemple). Ceci est 
rendu possible en n'employant que les branchements 
en adressage relatif , et en s'interdisant l'emploi 
de sous-programmes dans la routine en LM, puisque- 
le Z8Q ne possede pas d ' instruction d'appel de sous- 
programmes en adressage relatif . Ouf ! Passons en- 
fin au programme BASIC : 

10 DEFINIT A- J 

20 A = 32512 : REM 32512 = 7F00H. C'est l'adresse 

de lancement et de debut de la routine. 
30 B = : REM B sera la somme des valeurs des 

codes-op, afin de verifier les DATA 
10 FOR I = TO 18 : READ J: POKE A+I.J : B = B+J : 

NEXT : REM place les 19 octets de la routine en 

haut de memoire. B en fait la somme {c'est une 

mesure de precaution) : 
50 DATA 217,8,33, 0, 60, 1,0,1, 51, 191,35, 11, 120, 177, 

32,218,217,8,201: REM valeurs decimales des codes 

op de BLCECR. Leur somme est 1617. 
60 IF B<>1617 THEN PRINT "ERREUR DONNEES LIGNE 50" : 

STOP : REM verification de la valeur de B 
70 A0 = INT< A/256) : A1 = A - A0«256 : REM convertit 

A en deux octets. A0 est 1' octet de poids fort, 

A1 celui de poids faible. 
80 POKE 16526, A 1 : POKE 16527, A0 : REM prepare 1 ' u- 

tilisation de USR. 
90 I = USR(J) : REM appelle BLCECR. Les arguments 

I et J sont "bidons" puisqu'aucun parametre n'est 
ici echange entre BASIC et routine LM. 
100 FOR 1=1 TO 2000 : NEXT : REM teraporisation 
110 END 

Comme specific dans le "manuel du Level 2", l'adres- 
se de la routine doit etre convertie en deux octets 
(puisqu'une adresse occupe 16 bits), ce que realise 
la ligne 70. Pas mal, cet ecran blanc . . . Mais si 
nous remplissions la RAM video d'une autre caractere 
que ce CG de code 19 1 ? Pour cela, deux moyens : 

- remplacer, dans la ligne 50 de DATA, le code 
191 par celui du nouveau caractere, modifier la va- 
leur de la somme en consequence, puis faire RUN ; 

- ou bien faire POKE A+9, N (oil N est le code du 
nouveau caractere), oar le code du caractere destine 
a remplir 1' ecran est le dixieme octet de la routi- 
ne, puis GOTO 90. 



Ce blanchissement instantane de 1' ecran evoque les 
effets "flash" que 1 ' on trouve dans nombre de jeux 
de reflexes commercialises pour le TRS-80. Ainsi, 
dans ces jeux, lorsque le vaisseau spatial du joueur 
est detruit, 1 'ecran se blanchit, et une fraction de 
seconde plus tard, le graphisme initial est retabli . 
Pour retablir ces graphismes, le programme en LM -du 
Jeu le redessine : sa vitesse d' execution le lui 
permet. Mais a'il s'agit d'agrementer les graphiques 
d'un jeu en BASIC que nous avons ecrit nous-mimes, 
nous devons ecarter cette solution, car ces graphi- 
ques mettent souvent plusieurs secondes pour se re- 
nouveler. Un tel delai gacherait 1'effet obtenu . . . 
II nous faut done sauvegarder quelque part en RAM 
utilisateur le contenu de la RAM video, produire le 
flash (en appelant BLCECR), puis restaurer la RAM 
video. La vitesse souhaitee nous oblige a concevoir 
cette sauvegarde et cette "restauration" (?) sous 
Torme de deux routines en LM, respectivement SAVECR 
et RESECR. Dans ces deux routines, le plus simple 
est d' employer 1 'instruction LDIR du Z80 . 
L' instruction LDIR s" utilise comme suit (ceux qui 
connaissent par coeur leur "MPU Z80 Technical Manual" 
me pardonneront ce rappel ! ) : pour transferer N oc- 
tets d'une 2one memoire source d' adresse X vers une 
zone memoire destination d' adresse Y, il suffit de 
charger N dans le registre 16 bits BC, X dans HL, Y 
dans DE, et d'executer LDIR. Cette instruction bou- 
cle sur elle-meme jusqu'a ce que le transfert scit 
termine . 



Nos deux routines sont alors extremement simples 



ORG 7B00H 



110 SAVECR EXX 



120 
130 



110 
150 
160 
170 

180 
190 



EX 
LD 



LD 



LD 



AF.AF' 
DE, 31713 



1IL, 15360 
BC, 1021 



LDIR 



EXX 



EX 



AF, AF' 



7B00K = 31188, soit 1279 

octets afin la fin de 

la RAM 

commute le Z80 sur la 

serie inutilisee de re- 

gistres 

car 32767-31713=1021. 

La RAM video est sauve- 

gardee dans les 1021 

plus hauts octets. 

HL pointe sur le debut 

de la RAM video 

il y a 1021 octets a 

transferer 

et hop ! 1' ecran est 

sauvegarde 

rendons au BASIC les 

registres qui lui ap- 

partiennent 

retour au BASIC 



nous placons les deux routines a la suite 



200 RESECR EXX 



210 
220 

30 B = 



EX 

I.D 



AF.AF'I 
DE, 15360 



commute le Z80 sur la 
serie lnutilise de re- 
gistres 

cette fois, la destina- 
tion est '.a RAM video. 



REM B sera la somme de controle des DATA 
contenant les codes-op des trois routines. 

10 FOR I = TO 50 : READ J : POKE A+I, J : B = B*J : 
NEXT 

50 DATA 217,8, 17,255,123,33,9,60,-. ,0,1,23'/, IVb, 217, 
8,201 : REM codes-op de la routine SAVECR 

60 DATA 217,8,17,0,60,33,255,123,1,0.1,237,176,217. 

8,201 : REM codes-op de la routine RESERCR 
70 DATA 217,8,33,0,60,1,0,1,51, 191.35, H, 120,177,32, 

218,217,8,201 : REM codes-up de BLCECR 
80 IF B<>1731 THEN PRINT "ERREUB DONNEES" : STOP 

Utilisons a present ces trois routines. Pour pro- 
duire notre effet-special-style-professionnel , il 
nous faut appeler successivement SAVECR (pour sau- 
vegarder le contenu de 1 'ecran), BLCECR (pour le 
fameux "flash") et RESECR (pour que le contenu de 
l'ecran revienne comme si de rien n'etait) . 
Ajoutons done les lignes suivantes a notre char- 
geur : 

90 M = A : REM sera, lors de chaque appel de rou- 
tine, l'adresse de lancement de celle-ci (ici, 
de SAVECR) 

100 GOSUB 500 : REM appel de SAVECR. Le sous-pro- 
gramme en 500 fait la conversion et les POKE 
necessaires avant USR 

110 M = A+32 : REM BLCECR se trouve 32 octets apres 
le debut de la RAM protegee 

120 GOSUB 500 : REM appel de BLCECR 

133 M = A+16 : REM RESECR se trouve 16 octets apres 
le debut de la RAM protegee . 

150 GOSUB 500 : REM appel de RESECR 

160 FOR I = 1 TO 1000 : NEXT : REM temporisation 

170 GOTO 90 

199 REM ce sous-programme convertit l'adresse M en 
deux octets (16 bits), et erfectue les POKE qui 
s'imposent, avant d'utiliser USR 

500 M0 = INT (M/256; : M1 = M-256«M0 : REM M0 est 
1' octet de poids fort, Ml celui de poids faible 

510 POKE 16526, M1 : POKE 16527, MB : REM place 
l'adresse de la routine a appeler. 

520 I = USR (J) : REM appelle la routine. Les argu- 
ments I et J sont "bidons". 
530 RETURN : REM that's all, folks ! 

Apres avoir tape ce programme, verifiez-le (cela va 
sans dire), sauvegardez-le sur votre support magne- 



TRACE N' 4 - Janvier 1983 - 41 



tique favori (pour le cas oil il se planterait) 
observez la procedure suivante : 



et 



230 


LD HL.31713 


210 


LD BC, 1021 


250 


LDIR 


260 
279 

28a 


EXX 

EX AF.AF' 
RET 



- faire RESET 

- tapez 3 1188 (Enter) en reponse a la question 
MEMORY SIZE du TRS-80 ; 

- rechargez le programme ; 

et la source est le haut 

de la RAM utllisateur 

toujours 1021 octets a 

transferer 

rebelotte, mais en sens 

inverse 

restaure les registres 

retour au BASIC 

(Une maniere plus economique consisterait a rempla- 
cer les lignes 210 a 280 par un branchement relatif 
a la ligne 150). 

Pour produire l'effet "flash" decrit plus haut, il 
faut en sus disposer de la routine BLCECR preceden- 
te . Notre "chargeur" BASIC chargera done, a partir 
de l'adresse 31188, les routines SAVECR, RESECR et 
BLCECF l'une a la suite de 1' autre : 

13 DEFINT A-N 

28 A = 31188 : REM la MEMORY SIZE doit etre initia- 
lisee a la valeur de A 

- cette fois, verifiez-le VRAIMENT, et corrigez 
les erreurs eventuelles . . . 

- tapez RUN (Enter) ; 

- et ca marche ! L'ecran lance un eclair, son con- 
tenu n'ayant pas change. Un bref delai, et un 
nouvel eclair est lance... 

L'euphorie de la reussite passee, nous nous aperce- 
vons que nous consommons plus d'un Koctet de notre 
RAM si etriquee pour, somme toute, pas grand-chose. 
Heureusement , 1' Interface visuelle de l'homme ne lui 
permet qu'une saisie de donnees graphiques relative- 
ment lente. Autrement dit, si nous parvenons a bri- 
coler un effet similaire au precedent en moins de 
RAM (sans sauvegarder l'ecran), 1 'utilisateur n'y 
verra que du feu, grace a la vitesse du LM. 



Un effet peu couteux 
racteres graphiques 
eteints et vice-vers 
graphique quelconque 
que de CG proprement 
tine realisant cette 
partie de l'ecran, c 
de l'effet souhaite. 
initial, apres avoir 
concevoir la routine 
soit involutive, e'e 
cutifs de cette rout 
etat anterieur. 



en RAM est 1' inversion des ca- 
(e'est-a-dire allumer les points 
a). Avantage de ce procede : un 
comporte toujours plus d'espaces 
dits. Done, l'appel d'une rou- 
inversion blanchira une bonne 
e qui est un substitut acceptable 
Et pour retablir le graphique 
"lance 1 'eclair" 711 suffit de 
d' inversion de sorte qu'elle 
st-a-dire que deux appels conse- 
ine laissent l'ecran dans son 



La routine d' inversion de l'ecran proposee, nommee 
INVECR , accomplit les taches suivantes : 

- elle transforme tous les caracteres graphiques 
en leurs "negatifs" ; 

- elle transforme tous les espaces (de code ASCII 
32) en caracteres graphiques blancs (de code 
191) ; 

- et elle lalsse inchanges les autres caracteres 
(chiffres, lettres, symboles . . . ) . 

Comment s'y prendre pour inverser un CG ? Nous avons 
vu qu'un CG correspond, comme tout caractere de l'e- 
cran, a un octet de la RAM video, et que cet octet 
se caracterise par : 

- son bit b7 (de poids le plus eleve) vaut tou- 
jours 1 ; 



- son bit b6 vaut toujours ; 

- ses bits b5 a b0 correspondent chacun a l'un 
des six points constituant le caractere graphi- 
que, valant 1 si le point eat allume, s'il 
est eteint . 

Conclusion : pour inverser un CG, il faut inverser 
les bits b5 a b0 de 1' octet correspondant, tout en 
laissant b7 a 1 et b6 a 0. Pratiquement , vu le Jeu 
d ' instruction du Z80, nous pouvons adopter la sequen- 
ce suivante : 

a) lire 1' octet correspondant au CG a inverser, 
et le charger dans l'accumulateur du Z80 ; 

b) completer 1 'octet (Instruction CPL, qui n'ope- 
re que pour l'accumulateur, d'ou la necessite 
de a) ). Ceci a pour effet d'inverser le3 bits 
b5 a b0, comme souhaite, mais aussi de mettre 
b7 a et b6 a 1, ce qu'il faut corriger ; 

c) remettre b7 a 1 et b6 a 0. Cela peut s'effec- 
tuer de bien des f aeons, la plus simple etant 
d'ajouter 61 a l'octet en question. En effet, 
cet octet, apres l'etape b), est de la forme : 



bit 
n° 



10 1 ' X X 

7 6,5 1 



XXX 

3 2 1 



bits' lncorrects 

bits inverses corrects 



Or en binaire, 61 s'ecrit : 0100 0000. (.'addition de 
ces deux nombres binaires donne done : 

1 X X X X X X 
+ 0100 0000 



1 X X X X X X 



Le resultat de cette addition est done un octet 
ayant la forme correcte , puisque b7 vaut 1 et b6 
vaut 0. 

Voici la liste d'un programme en LM qui emploie cet- 
te methode : 



100 ORG 7F00H 

110 INVECR EXX 

120 EX AF.AF' 

130 LD HL, 15360 

110 LD BC, 1021 

150 BOUCLE LD A, (HL) 

160 LD D, A 

170 CP 32 

180 JR NZ.SAUT1 

190 LD A, 191 

200 JR SAUT2 

210 SAUT1 AND 128 

220 JR Z.SAUT3 

230 LD A,D 

210 CPL 

250 ADD 61 

260 SAUT2 LD (HL),A 

270 SAUT3 INC HL 

280 DEC BC 

290 LD A,B 

300 OR C 



7F00H = 32512. Cette ori- 
gine peut etre deplacee. 
commute le Z80 sur la serie 
inutilisee de registres 

HL pointe sur le debut de 
la RAM video 
BC compte les caracteres 
a inverser 

charge A avec le caractere 
pointe par HL 
sauvegarde ce caractere 
dans D 

le compare avec un espace 
(de code ASCII 32) 
si ce n'en est pas un, 
aller en SAUT1 
si e'est un espace, Le 
change en un CG blanc 
(code 19D 

et on remet ce blanc la oil 
on a pris l'octet 
force a tous les bits 
sauf b7. Done A=0 si b7=0 
si A=0, le caractere n'est 
pas graphique : au suivant! 
restaure la valeur de l'oc- 
tet, alteree par le dernier 
AND 

inverse tous ses bits 
voir texte ci-dessus 
reraplace le CG par son in- 
verse dans la RAM video 
passe au caractere suivant 
... et diminue de 1 le com- 
pte d' octets restants 
A est charge avec B C, 
et n'est nul que si B=C=0 
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310 



JR NZ, BOUCLE ; si BC n'est pas nul, on 







continue (11 reste des 






octets) 


320 


EXX 


; restitue ses registres au 
BASIC 


330 


EX AF.AF' 


; 


310 


RET 


; retour au BASIC 



Le chargeur BASIC qui installe cette routine en me- 
moire protegee est donne ci-apres. II necessite une 
initialisation du MEMORY SIZE a la valeur de A 
( 32512 dans ce cas) . 

10 DEFINT A-N 

20 A = 32512 : REM A et MEMORY SIZE doivent avoir 

la meroe valeur 
30 B = : REM B sera la somme des valeurs des 

DATA 
10 FOR I = TO 37 : READ J : POKE A+I.J : B = B+J : 

NEXT 
50 DATA 217,8,33,0,60,1.0.1,126,87,251,32,32,4,62, 

191,24,8,230, 128,40,5, 122,47,198,64, 119,35, 11, 

120,177,32,231,217,8,201 : REM codes-op de INVECR. 

Leur somme est 3128. 

60 IF B<>3128 THEN PRINT "ERREUR DONNEES" : STOP 

Pour tester l'effet de ce programme en LM sur les 
CG, creons un dessin quelconque avant d'appeler 
INVECR : 



utilitaire; 



70 CLS : PRINT 30, "TEST" : FOR I = 476 TO 732 STEP 
64 : PRINT I, STRINGS(8, 134), : NEXT : REM gra- 
phisme de test 
80 A0 = INT( A/256) : A1 = A = 256* A0 ; REM conver- 
tlt A en deux octets. A0 est l'octet de poids 
fort, A1 celui de poids faible. 
90 POKE 16526, A1 : POKE 16527. AO : REM prepare 

l'appel de la routine par USR 
100 I=USR(J) : REM appel INVECR. Les arguments I et 

J sont bidons . 
110 F0RI=1 TO 200 : NEXT : REM temporisation 
120 GOTO 100 : REM boucle Jusqu'a un BREAK 



Cette boucle montre bien que la routine est involu- 
tive. En remplacant la ligne 100 par : 



I = USR(J) 



I = USR(J) 



nous nous apercevons que l'on retrouve un effet 
"flash", tout en ayant economise un Koctet de RAM ! 
A mediter, done : "pour remedier au defaut d'un pro- 
gramme, cherchez le defaut de l'utilisateur" . 

( CompfuciuS; 



. Frederic Mora 



Sauvegardez 
vos cassettes 




L'utilisation de cassettes permet un stockage econo- 
mique pour les fichlers sequentiels. Cependant leur 
duplication aux fins de sauvegarde n'est pas facili- 
tee par l'absence d'une instruction specialisee qui 
serait l'homologue des BACKUP et autres COPY des 
SED. Le petit programme ci-dessous vous permettra de 
dupliquer aisement et rapidement, une seule passe 
suffit, tous vos fichiers sur cassette, quel que 
soit le format des enregistrements (PRINT # , objet 
ou source assembleur, BASIC ou SYSTEM). 
La methode utilisee necessite deux magnetophones, 
l'un pour lire la bande originale, 1' autre pour en- 
registrer sa replique. Mais, a la difference du 
procede cla3sique de recopie de magneto a magneto, 
les signaux electriques transitent par 1' interface 
cassette du TRS 80 pour recevoir une remise en for- 
me. La qualite de la reproduction est ainsi identi- 
que a celle obtenue lors des enregistrements habi- 
tuels. 



Partant d'un principe extremement simple, chaque 
digit lu sur la bande a reproduire, qu'il s'agisse 
d'un digit de donnee ou d'un digit de synchronisa- 
tion, declenche 1 'ecriture d'un digit sur la bande 
image. Le TRS 80 Modele 1 utilise le port 255 du 
mlcroprocesseur Z 80 pour interfacer le magnetopho- 
ne en lecture comme en ecriture. C'est done par lui 
que transiteront alternativement les informations 
(bit 7 en lecture, bits et 1 en ecriture). Le 
role essentiel de ce programme utilitaire sera done 
de Jouer les aiguilleurs. 



Pour la mise en oeuvre, raccorder les prises EAR et 
REMOTE du lecteur et la prise AUX de l'enregistreur 
aux fiches correspondantes du cable venant du cla- 
vier ou de 1' interface d 'expansion (magnetophone 1). 
Faire RUN et le signal d' invite SYSTEM apparalt 
presque aussitot sur l'ecran. Demarrer d'abord l'en- 
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registreur, puis faire / pour mettre en marche le 
Lecteur. Des que le premier digit eat lu, les aste- 
risques habituels apparaissent et celui de droite 
clignotera pendant toute la duree du transfert. Le 
lecteur s'arretera automatiquement 1.66 seconde 
apres la fin des signaux. Cette temporisation permet 
de franchir le petit blanc qui separe les enregis- 
trements des blocs de PRINT = et de programme objet 
cree par EDTASM. Apres 1'arrSt du lecteur, le pro- 
gramme elTectue un retour a la commande SYSTEM de 
facon a etre de nouveau pret a poursuivre la lecture 
si necessaire. Si l'on fait ENTER tout seul, un 
message d'erreur concernant la ligne 110 sera affi- 
che avec edition de cette ligne. Refaire a nouveau 
ENTER, ce qui raroene au BASIC et le programme est 
tou jours present. 



A L- USAGE EXCLUSIF 
DES UTILISATEURS LEVEL II CASSETTE, MODELE 1 OU 3 ! 



teMort 




LtCTEOR 



EHRtWSIttOR 



10 ' 


RECOPIE DE FICHIERB 


CASSETTE BIT 


PAR BIT (LEVEL 2) 


F6 


20 ' 


AUTEUR : ROGER 


BUVAT 










EC 


30 ' 


COPYRIGHT "TRACE 


L' AUTEi 






E2 


40 ' 
















D8 
















50 FOR 1= 


20000 TO 20063 










85 


60 


READ J 












EF 


70 


POKE 


I 7 J 












4A 


80 NEXT 1 














EO 


90 POKE 


16526/93 : 


POKE 


16527/ 


78 ' 


ADRESSE POUR 


USR 


CE 


100 


POKE 


16607/32 : 


POKE 


16608/ 


78 ' 


ADRESSE ROUTINE 


CB 


110 
120 


PRINT 


USR(O) 






I 


INITIALISATION 


9E 
88 
















130 


DATA 


62 » 4 






LD 


A/4 




F4 


140 


DATA 


211/255 






OUT 


(OFFH) /A 




56 


150 


DATA 


219/255 




' ATTO 


IN 


A/ (OFFH) 




44 


160 


DATA 


23 






RLA 






39 


170 


DATA 


48/251 




' 


JR 


NC/ATTO 




64 


180 


DATA 


33/62/60 




' 


LD 


HL/3C3EH 




* FE 


190 


DATA 


54/42 




' 


LD 


(HL) /2AH 




85 


200 


DATA 


35 






INC 


HL 




' OE 


210 


DATA 


54 r 42 






LD 


(HD/2AH 




71 


220 


DATA 


6/60 




'DIGIT 


LD 


B/3CH 




9A 


230 


DATA 


16/254 




i • 


DJNZ 


* 




2A 


240 


DATA 


62/5 




' 


LD 


A/5 




85 


250 


DATA 


211/255 






OUT 


(OFFH) /A 




E8 


260 


DATA 


6/16 




' 


LD 


B/10H 




70 


270 


DATA 


16/254 






DJNZ 


* 




01 


-280 


DATA 


62/6 






LD 


A/6 




5B 


290 


DATA 


211/255 






OUT 


(OFFH) /A 




BF 


300 


DATA 


6/16 






LD 


B/10H 




48 


310 


DATA 


16/254 






DJNZ 


$ 




D9 


320 


DATA 


62/4 






LD 


A/4 




35 


330 


DATA 


211/255 






OUT 


(OFFH) /A 




97 


340 


DATA 


126 




: ' 


LD 


Az(HL) 




50 


350 


DATA 


13 




■ 


DEC 


c A 


' 7B 


360 


DATA 


32/2 




: ' 


JR 


NZ/$+2 p 


12 


370 


DATA 


238/10 




: ' 


XOR 


OAH I 

(HL)zA J 




Al 


380 


DATA 


119 




: ' 


LD 


26 


390 


DATA 


17»0/0 






LD 


DE/O N 


s^oni^X 


' 97 


400 


DATA 


219/255 




:' ATT 


IN 


A/ (OFFH) 




' 49 


410 


DATA 


23 






RLA 






' 3E 


420 


DATA 


56/217 






JR 


C/DIGIT 




' 68 


430 


DATA 


27 






DEC 


DE 




' 26 


440 


DATA 


122 




: ' 


LD 


A/D 




' FO 


450 


DATA 


179 




: ' 


OR 


E 




' DA 


460 


DATA 


32»246 




: ' 


JR 


NZ/ATT 




' 44 


470 


DATA 


195/175/2 






JP 


02AFH 


Rog 


' Al 

sr Buvat 
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methode. 



Convertissez 



programmes et fichiers 
de cassette a disquette 



Vous fetes possesseur d'un modele 1 ou 3 version cas- 
sette et vous avez utilise cet organe peripherique 
pour stocker vos fichiers sequentiels. Mais tout a 
une fin et vous venez recemment de faire l'acquisi- t 
tion d'une unite de disquette. La premiere question 
qui vous vient a 1 'esprit est tout naturellement : 
comment vais-Je convertir mes fichiers cassette en 
fichiers disquette ? Compare aux "PRINT#-1" et aux 
"INPUT#-1" du cassettophone . . . ca a plutot l'air 
complique ! II n'y a pourtant, rien de plus simple : 
"en gros" , 11 suffit de remplacer dans vos program- 
mes les "PRINT#-1" par des "PRINTS" et les "INPUT 
#;-!" par des " INPUT #=1" . . . En fait ce n'est pas tout, 
mais vous allez le voir, ce qui suit est tres logi- 
que ! 



Les programmes BASIC que vous stockiez sur la casset- 
te possedaient chacun un nom particulier qui vous 
permettait de les retrouver (par CSAVE ou CLOAD) . 
Aviez-vous remarque que les fichiers sequentiels eux, 
n'avaient pas de nom ? II n'y a plus cette differen- 
ce maintenant avec la disquette : les fichiers se- 
quentiels comme les programmes possedent un nom et 
ce nom est defini par une nouvelle instruction : 
OPEN. Ce mot anglais signifie "ouvrir" et, pour fai- 
re une comparaison, on peut imaginer que la disquette 
represente une pile de livres, chaque livre represen- 
tant lui-meme un programme ou un fichier. Ainsi, pour 
acceder par exemple au fichier contenant une liste 
d'adresses, on devra ouvrir le livre appele "ADRES- 
SES", c'est-a-dire faire un "OPEN" du fichier "ADRES- 
SES" . Au moment de l'ouverture du fichier, on devra 
preciser le type d' operation que l'on a 1' intention 
d'effectuer : lecture ou ecriture, sachant qu'on ne 
peut pas effectuer les deux en meme temps. Avec le 
magnetophone, 11 fallait appuyer sur les touches PLAY 
pour lire ou PLAY et RECORD pour ecrire, mais on ne 
pouvait pas lire la cassette avec la touche RECORD 
enfoncee et inversement ecrire avec 1' unique touche 
PLAY enfoncee ! Au moment d' ouvrir notre fichier, il 
faudra done ecrire : OPEN "0" si nous avons 1' inten- 
tion d 'ecrire dans le fichier ("0" comme "output", 
sortie) ou : OPEN "I" si nous avons 1' intention de 
lire le fichier ("I" comme "input", entree). Les 
termes "entree" et "sortie" lorsqu'ils s'adressent 
aux organes peripheriques, prennent tou jours la me- 
moire de l'ordinateur comme critere de reference : 
lire un fichier est une "entree" du fichier dans la 
memoire, ecrire dans un fichier est. une "sortie" me- 
moire vers le fichier. 



Revenons a notre pile de livres. II est frequent 
d' avoir a ouvrir plusleurs livres a la fols pour fai- 
re des comparaisons par exemple, ou pour recopier 
dans un livre (sortie) les informations que nou3 11- 
sons dans un ou plusleurs autres (entree). Avec les 
extensions disque du BASIC, 11 e3t possible d' ouvrir 
jusqu'a 15 fichiers simultanement , d'ou la question 
posee au lancement "HOW MANY FILES ?" , e'est-a-dtre 
"combien de fichiers" peuvent etre ouverts simulta- 
nement ? La reponse a cette question permettra au 
BASIC de reserver autant de zones tampons en memoire 
(utilisees pour les echanges disquette) que vous avez 
demande de fichiers. Le programme BASIC sera charge 
apres celles-ci et son adresse d ' implantation sera 
done liee a cette reponse. Si l'on repond seulement 
par <enter>a la question, le BASIC reserve lmplicl- 
tement trois tampons memoire, ce qui correspond a 
trois fichiers. 



Vu du BASIC, le dialogue entre le programme et le 
fichier passe toujours par la zone tampon allouee a 
ce fichier (approximativement un secteur physique) 
et nous sommes done conduits a identifier cette zone 
par un numero : 1 pour la premiere zone, 2 pour la 



seconde, etc... L'ordre OPEN est l'occasion ideale 
pour definir la zone tampon allouee au fichier et 
nous ecrirons par exemple : 

OPEN "I". 1,"FICH" 

ce qui 3ignifiera que la zone tampon numero l est 
affectee au fichier de nom "FICH" qui est ouvert en 
entree. Nous aurions pu sans le molndre probleme, 
prendre un autre numero de zone pourvu que celui-ci 
soit libre et autorise (depend de la reponse a "How 
many files"). Si maintenant nous voulons ouvrir SI- 
MULTANEMENT un autre fichier (alors que "FICH" est 
toujours ouvert), il conviendra de prendre un autre 
numero de zone tampon, le 1 etant deja occupe : 

OPEN "0",2,"B0ITE" 



Ces preparatifs etant faits, il est maintenant pos- 
sible de lire dans le fichier "FICH" et d 'ecrire dans 
le fichier "BOITE" . Comment ? Tout naturellement par 
les ordres INPUT et PRINT . . . Nous ferons done : 

INPUT# 1 , As" 
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pour lire dans la variable hi le premier enregistre- 
ment du fichier attribue a la zone 1 ("FICH"), et : 

PRINT#:2,Ai 

pour ecrire le contenu de cette variable dans le pre- 
mier enregistrement du fichier attribue a la zone 2 
("BOITE"). Les enregistrements etant classes sequen- 
tiellement dans ce type de fichiers a la raaniere de 
ceux des cassettes, un nouvel ordre INPUT^tl lira le 
second enregistrement du fichier FICH, un autre le 
troisieme enregistrement, etc... 



Un pointeur d 'enregistrements est tenu automatique- 
ment a jour par le systeme sans que vous ayiez a vous 
en soucier. Meme raisonnement pour les PRINT 2 mais 
en ecrlture . 



Enfln, pour fermer le fichier et liberer par la meme 
occasion la zone tampon qui lui est associee, il suf- 
fira d 'employer un nouvel ordre : CLOSE (du verbe 
fermer). Lorsque 1' ordre CLOSE est suivi d'un numero, 
seul le fichier concerne est ferme . Si aucun numero 
n'est sped fie, tous les fichiers ouverts a cet ins- 
tant sont fermes . Une remarque au passage : tout fi- 
chier deja ouvert ne peut pas etre ouvert a nouveau, 
ce qui d'ailleurs serait ridicule et declancherait 
un message d'erreur approprie (file already open = 
fichier deja ouvert). Pour illustrer cela, prenons 
un petit exemple : 



10 OPEN "0", 1."FICH" 

20 PRINT#:1," EXEMPLE DE FICHIER SEQUENTIEL" 

30 FOR N=1 TO 10 

10 PRINT#:1,N 

50 NEXT 

60 CLOSE 



Ce programme va creer un fichier de nom "FICH" com- 
pose de 11 enregistrements, le premier etant consti- 
tue du texte "EXEMPLE DE FICHIER SEQUENTIEL" et les 
dix suivants des valeurs numeriques de 1a 10. 



Pour relire ce fichier et en afficher le contenu, 
utillsons le programme suivant : 



100 OPEN "I", 1,"FICH" 

110 INPUT *s1,M : PRINT Ad 

120 FOR N=1 TO 10 

130 INPUT** 1, A : PRINT A 

1«0 NEXT 

150 CLOSE 



Facile hein ? 

Mais on ne connalt pas toujours forcement la longueur 
d'un fichier, aussi il peut s'averer utile de pouvoir 
en detecter la fin par une fonction speciale : EOF 
(End Of File = Fin De Fichier) qui rend une valeur 
booleenne (oui ou non) indiquant si la fin du fichier 
est atteinte ou non. Le numero de la zone tampon as- 
sociee au fichier est donne en parametre : 

IF E0F( 1) THEN... 



signifiera : si fin du fichier 1 detectee, alors . . . 
et notre dernier programme pourra etre modifie ainsi: 



120 IF E0F( 1) THEN 

130 INPUT* 1, A : PRINT A 

140 GOTO 120 



Remarque : si vous essayez de remplacer la variable 
A en ligne 130 par la variable As", vous constaterez 
que cela fonctionne aussi bien. En effet, les valeurs 
numeriques sont converties en chaines alphanumeriques 
(code ASCII) avant d'etre ecrites dans le fichier, et 
inversement a la lecture. Un dernier exemple de pro- 
gramme nous permettra maintenant de recopier le fi- 
chier "FICH" dans le fichier "BOITE" : 

10 OPEN "I", 1, "FICH" .ouverture en lecture 

20 OPEN "0", 2, "BOITE" .ouverture en ecrlture 
30 ' les deux fichiers sont ouverts simultanement 
40 IF E0F(1) THEN CLOSE : END , si fin de fichier : 

arret 
50 INPUT#1,M .lecture d'1 enregt 

60 PRINT#:2,Ai .ecrlture de cet enregt 

70 GOTO 40 ,on continue 



Si vous avez deja utilise 1 'instruction LINEINPUT du 
BASIC disquette pour les entrees clavier, vous pour- 
rez prof iter des memes avantages pour les fichiers 
sequentiels en remplacant tout s implement INPUT#=par 
LINEINPUT . Brievement, avec cette instruction lea 
espaces de debut de chaines ne sont plus ignores et 
la virgule n'est plus consideree comme un separateur . 



Ces quelques conseils devraient vous permettre sans 
trop de difficultes de passer des fichiers cassette 
aux fichiers disquette. Une seule precaution toute- 
f oi s : lisez les enregistrements de la meme facon 
que vous les avez ecrits, c'est-a-dire dans le meme 
ordre et en utilisant les memes types de variables 
sinon, gare aux surprises ! Sachez aussi que dans le 
fichier, les valeurs numeriques sont bornees par un 
espace et les valeurs alphanumeriques par une virgu- 
le (cas du INPUT mais pas du LINEINPUT ) ou un code 
de retour chariot (0DH) ou de nouvelle ligne (OAH). 
Le cas echeant, un enregistrement se terminera sur 
le 255 ieme caractere de la chaine. Ainsi, si l'on 
ecrit : 



100 PRINT#1 , 123 , "AAAA" , 456 , " 
et que l'on espere le relire par : 
200 INPUT #. 1 , A , Bs" , C , Di 

on risque d'etre tres decu . . . La variable A aura 
bien la valeur 123, mais la variable Bs* contiendra 
tout le reste de 1 ' enregistrement , soit : "AAAA 
456 BBBB" ! Si vous ne voyez pas pourquoi , reli- 
sez bien attentivement les lignes precedents. Pour 
eviter ce probleme, il faudra done ecrire : 



100 PRINT ?fc 1 , 123 , "AAAA" ; "," ; 456 , "[ 
ou bien encore : 
100 PRINT ;& 1 , 123 ■ "AAAA" : PRINT ^t 1 , 456 , 



Avec les fichiers sequentiels, nous avons vu que tous 
les enregistrements sont classes les uns derriere les 
autres sur la disquette, si bien que pour acceder au 
centieme enregistrement par exemple, il faut avoir 
lu les 99 qui precedent. De plus, il n'est pas possi- 
ble de modifier ou ajouter un enregistrement a un fi- 
chier sans etre oblige de le recopier integralement . 
Nous verrons peut-etre dans un autre article - qui 
reste a ecrire ! - que les fichiers a acces direct 
ne possedent pas ces inconvenients . 



-Alain Pinaud 
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programme. 



Un g£n£rateur 
d'effets sonores 




3a> 



Grace a oe programme, vous pourrez agrementer vos 
jeux et aussl vos programmes "serieux" de "BEEPS" de 
tonallte et de duree variable, ou meme d'effets so- 
nores divers (arpeges, bruits de sirene, etc.). 

II vous suffit pour cela de prolonger la sortie cas- 
sette de 1 'unite centrale (normalement reliee a la 
borne AUX du cas3ettophone) , vers un amplif icateur 
basse frequence, par exemple celui decrit dans le 
n° 2 de TRACE, ou encore la prise "pick-up" d'une 
quelconque radio. 

Le programme BASIC implante automatiqueraent en fond 
de memoire 25 octets, apres avoir deplace le memory 
size anterleur. Done pa3 de probleroe de MEMORY SIZE, 
dans tous les sens du terme d'ailleurs, puisque ce 
programme tourne sous toutes les versions du modele 
1, niveau 2, avec ou sans minidisque. 

Apres un RUN, vous etes invite a entrer des paires 
de nombres comprls entre 1 et 255 definissant la to- 
nallte et la duree de "BEEPS" d'essai. 

La hauteur du son emis est inversement proportionnel- 



le au nombre "tonallte" et sa dure proportlonnelle 
au produit du nombre "duree" par celui de "tonallte" 
A 1 'execution l'ecran affiche B=USR(nn) , ou 



nn = "tonallte" + "duree" 



256 



Apres quelques essais, vous trouverez aisement les 
nombres qui vous conviennent, mais attention, ces 
nombres nn sont des entiers sign^s compris entre 
-32768 et 32767, e'est-a-dire que si nn > 32767, il 
est fait nn = nn - 65536. 

En fin de programme, vous recevez en prime un con- 
certo d' arpeges plus ou molns chromatiques . 

Tout cela est tres bien, mais comment dois-Je pro- 
ceder pour generer des "BEEPS" dans "mes" autres pro- 
grammes ? 

C'est tres 3imple : vous chargez d'abord le present 
programme, vous faites un simple RUN, vous tapez 
BREAK, puis vous chargez "votre" programme, dans le- 
quel vous aurez ecrit aux endroits appropries des 
B = USR(nn). 

A vous de Jouer ! 



CONFIGURATION DE BASE 



1 

2 ' 

3 ' 

25000 ' 
25010 ' 
25020 CLS 



MODELE 1 K7 0U DISQUETTE 

<t A 48 k 



FF 

FE 
• Fp 

PROGRAMME GENERATEUR D' EFFETS SONORES ' F^ 

P0GER BR0USMICHE 07/82 ' ED 

: PRINT TAB(19) "» EFFETS SONORES ♦" : PRINT:REMBA 

25030 CLEAR 77 : G0SUB 25040 : GOTO 25160:REM28 

25040 L = PEEK( 16561) : H = PEEK ( 16562 ) : HL = L+H*256-27 : G0SUB 2510 

0:PEM7A 

25050 POKE 16561,L : POKE 16562 ,H:REM36 

25060 HL=HL+3 ; G0SUB 25100: A=HL : G0SUB 25110:REM53 

25070 IF PEEK (16396) <> 201 THEN DEFUSR=A : CMD"T" ELSE POKE 165 

26jL : POKE 16527 ,H:REM9E 

25080 FOR 1=0 TO 24 : A=I+HL : G0SUB 25110: READ B : POKE 

MEXT:REM95 

25090 RETURN:REM0A 

25100 H=INT(HL/256) : L=HL-H#256 : RETURN:REM0E 

25110 IF A>32767 : A=A-65536:REM73 

25120 RETURN:REMEC 

25130 DATA 205 i 127 > 107 175 >22>6 j 76 > 69 , ,0 7O -0> 16 7 250 : REM4D 

25140 DATA 238 7 1 >21 1 ;255 , 13, 3272427 21 > 32 >238 ;201 :REMD3 

25150 ' PROGRAMME D'ESSAI 60 

25160 PRINT "* N0UVEAU MEMORY SIZE ="HL-1 : PRINT:REM43 

25170 CLEAR 50 : PRINT "* QUELQUES ESSAIS..." : PRINT:REM22 

25180 PRINT "* DES NOMBRES INFERIEURS A 256; S.V.P. -- TERMINE 

P PAR 0!0":REM78 

25190 INPUT " T0NALITE , DUREE "; LjH 

230:REM70 

25200 IF L>255 OR H>255 THEN 25180:REM8E 

25210 A=L+H*256 : G0SUB 25110:REM7D 

25220 PRINT "B = USR ("A")" : B=USR(A) : 

25230 L=4994 : H=5172 : FOR J = 1 TO 5 : 




IF L=0 AND H=0 THEN 25 



GOTO 25190:REM69 
L=L-896 : H=H-896 :REMC2 



25240 FOR I=L TO H STEP SGN(H-L)*5 : B=USR ( I ) 
25250 A=L : L=H : H=A : NEXT J : PRINT a 960 
> ! "; : GOTO 25230:REM97 



NEXT I:REM06 
1 TAPEZ < BREAK 



Roger Brousmiche 
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jeu graphique 



Faites vos jeux 
sans prendre de risque 



MODE D' EMPLOI DU PROGRAMME "ROULETTE" 



Ce jeu de casino joue le role d'un croupier de rou- 
lette. C'est un moyen economique de tester vos mar- 
tingales les plus sophistiquees, et de vous laiS3er 
glisser sur la pente savonneuse du jeu, sans que vos 
finances en patissent ! 

Plusieurs personnes (jusqu'a 10) peuvent y jouer si- 
multanement, et se preter mutuellement de 1 'argent, 
avec remboursement possible des que le credit devient 
suTf isant . Un joueur seul ne peut, quant a lui , comp- 
ter que sur sa chance. Voici le deroulement des ope- 
rations : 

a) Le programme commence par decnander le nombre 
de joueurs, ainsi que leurs noms . 

b) Puis il vous propose les Instructions, qui 
vous rappellent, en meme temps que les regies de la 
roulette, le mode d' entree des mises. 

c) Le dessin du tapis de Jeu apparait alors sur 
l'ecran. Les joueurs entrent successivement leurs 
mises. Chacun a droit a dix mises differentes. S'il 
desire en entrer moins de dix, il lui suffit de ta- 
per "STOP" apres sa premiere mise . Pour chaque mise, 
le programme demande d'abord son objet ("SUR QUOI 
MISEZ-VOUS ?") puis ensuite son montant ("COMBIEN 
VOULEZ-VOUS MISER LA-DESSUS ?" ) . Attention, si vous 
dites "je mise mille Francs sur le 14", il faudra 
taper d'abord It (en reponse a la premiere question), 
puis 1000 (en reponse a la seconde ) , et non 1' inver- 
se ! Pour miser sur les rouges, tapez "ROUGE" pour 

la lere question ; pour parier sur les pairs tapez 

5 REM 



"PAIR"; tapez "19" si vous misez sur ce chiffre, 
etc... II vous est possible de miser sur Pair, Im- 
pair. Manque (les numeros de 1 a 18), Passe ( 19 a 36) 
Rouge ou Noir, et ce, pour un rapport de deux fois 
la mise (puisque vous avez alors une chance sur deux 
de gagner). Pour un rapport de 36 fois la mise, vou3 
pouvez risquer vos " jetons" sur les 36 numeros . 

d) Un dessin cense representer la roue aux trente 
six numeros apparait apres la derniere mise. Quelque3 
secondes de suspense, et... 

e) Le resultat fatidique s'inscrit sur l'ecran ! 
Si, par malheur, le nombre sorti est le zero, sur 
lequel personne ne peut miser, la banque empoehe les 
mises. Sinon, vous assistez a 1 'enumeration des re- 
sultats, par mise gagnante et par joueur. 

f) Le credit de chaque joueur est ensuite donne . 

g) Si un zero isole constitue le seul credit d'un 
Joueur, celui-ci peut en appeler a la bonte d'ame de 
ses partenaires (s'il ne Joue pas seul, evidemment) . 
II devra rembourser ses dettes des que son credit 
aura depasse un montant double de celui des dettes . 
Le programme ne l'y oblige pas, mais que dire des 
autres joueurs ? 

Et s'il ne trouve aucune ame charitable, il eat im- 
pitoyablement elimlne (du Jeu, s'entend !). 

h) La fin de la partie survlent lorsque tous les 
joueurs sont ruines, ou lorsqu'un joueur devient mil- 
lionnaire. Si la barre d'un million vous semble trop 
haute, augmentez le credit initial des joueurs (ini- 
tialise a dix mille Francs a la ligne 1005). 

Bon amusement . 



ROULETTE 

PAR FREDERIC MORA 



35 
10 RANDOM: 
2D DEFINTI 
110 CLS:RE 
120 PRINT: 
150 PRINT+ 
SING USIN 
USING USIN 
INGUSINGUS 
160 PRINT+ 

USIN 
170 PRINT+ 

USIN 
180 PRINT+ 

USING 
NG USIN 
190 PRINT* 



CLEAR1000:REMBD 

-N:DEFSTR0-Z:DEFDBLE-H:REM7<. 

M0E 

PRINT:PRINT:PRINT:REM12 

USINGUSINGUSINGUSINGUSINGUSING 

G USING USING USINGUSI 

GUSINGUSINGUSINGUSINGUSINGUSING 

ING USINGUSINGUSINGUSINGUSINGUSI 

USING USING USING USING 

G USING USING 

USING USING USING USING 

G USING USING 

USINGUSINGUSINGUSINGUSINGUSING 

USING USINGUSINGUSINGUSING 

GUSINGUSINGUS1NG":REM00 

USING USING USING USING 




USINGUSINGUSINGUS1NGU 
NGUS INGUSINGUS I NGUS ING 
US INGUSINGUS INGUSINGUS 
NGUSING":REM73 



USING 


USING 


USING 


USING' 


:REM8A 




USING 


USING 


USING 


USING' 


JREM80 




USING 


USING 


USING 




USING 


USI 


USING 


USING 


USING 
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USING USING USING USING":REM6C 

200 PRINT+USING USING USING USING USING USING USING 

USING USING USING USING":REM62 

210 PRINT+USING USING USINGUSINGUSINGUSING USINGUSINGUSI 
NGUSINGUSING USINGUSINGUSINGUSINGUSINGUSINGUSING USINGUSINGUSIN 
GUSINGUSINGUS1NGUSING USING USING USINGUSINGUSINGUSI 
NGUSINGUSINGUSING":REM2F 

220 PRINT:PRINT"VERSION 1.3 COPYRIGHT CO TRACE ET L'AUTEUR": 
REMEC 

230 PRINT:G0SUBlOO0Q:REMAC 

1000 INPUT"N0MBRE DE JOUEURS" ;N: IFN<10RNM0PRINT "ENTRE 1 ET IOiS 
VP! ":G0T01000ELSEIFN=1THENR=STRING$(2.8):REM17 

1005 DIMP(N),F(N).R(N.10>.H(N,N).G(N.10> :F0R I=1T0N:PRINT"N0M DU 
JOUEUR";I;R;:INPUTP(I):F(I)=10000:NEXT:REM74 

1010 PRINT"MERCI. . . " :PR INT :PR INT "VOULEZ-VOUS LES INSTRUCTIONS (0 
/N)?":G0SUB12000:IF01="N"THEN1500:REMAD 

1020 CLS;PRINT"BIENVENUE DANS L'ENFER DU JEU, P IGEON" ; : IFNMPRIN 
T"S"; :REM5D 

1030 PRINT" ! • ":PRINT"V0ICI LE MODE DE PARI DE LA ROULETTE QUI V 
A VOUS PLUM... HEU... JE VEUX DIRE: QUI VA VOUS APPORTER LA FORT 
UNE.":REMC5 

1040 PRINT"VOUS POUVEZ PARIER SUR LES NUMEROS DE 1 A 36. LE RAPP 
ORT ETANT DE 36 FOIS LA MISE.POUR UN RAPPORT DE 2 FOIS. VOUS PO 
UVEZ AUSSI PARIER SUR PAIR; IMPAIR, PASSE (19 A 36); MANQUE (1 A 

18). ROUGE OU N0IR.":REM86 
1050 PRINT"LES NUMEROS NOIRS SERONT SOULIGNES SUR LE TAPIS A L'E 
CRAN. SI LEZERO SORT) LA BANQUE RAMASSE ! ON NE PEUT PAS MISER S 
UR CE CHIFFRE.":PRINT:GOSUB10000:REMF1 

1060 PRINT"VOICI COMMENT MISER :" :PRINT"V0US AVEZ DROIT A DIX MIS 
ES PAR TOUR. POUR CHAQUE MISE. TAPEZ VOTRE NUMERO (OU 'PAIR'i 
OU 'MANQUE'. ETC). ET <ENTER>; PUIS LE MONTANT DE VOTRE MISE. SU 
IVI DE L' INEVITABLE <ENTER> . " :REME3 
1070 PRINT"SI VOUS FAITES MOINS DE 10 MISES. ENTREZ 'STOP' QUAND 

VOUS AVEZ FINI. VOUS DEMARREZ AVEC 10000 F. POUR GAGNER. IL FAU 
T DEVEN1R MILLIONAIRE!! BONNE CHANCE ..." :PRINT :G0SUB10000 : 
REM7A 

1500 CLS:PRINT325. "FAITES VOS JEUX . . . " :REM1E 
1520 PRINT3128." 12 3 4 5 6 7 8 
" 10 11 12 13 14 15 16 17 18":PR1NT:PRINT* 

22 23 24 25 26 27" :PR INT :PR1NT " 28 29 30 
4 35 36":REM1B 

1530 «=STRING*(4.188) :Q1=STRING$(36 . 176 ) : REMEC 
1540 F0RI=64T0576STEP128:PRINT3I.Q1; :NEXT:REM08 

1580 DATA2. 4, 6. 8. 10. 11. 13, 15. 17, 19, 22, 24, 26. 28. 29. 31. 33. 35 :'N0S 
DES NOIRS B4 

1590 RESTORE: FOR I = 1T0 18 : READ J: NEXT :REM34 
1600 F0RI=1T018:READJ:PRINT3J»Q;:NEXT:REMC6 

1610 DATA 197. 205. 2 13. 22 1.32 1.325. 333. 34 1.349. 449. 461. 469 .477. 577 
.58 1.589. 597, 605 :REM30 

1620 F0RI=5T029STEP6:RESET(0.I ): SET (72. I ):NEXT:REM49 
1630 F0RJ1 = 1T073STEP8:F0RJ2=5T029:SET( J1.J2) :NEXTJ2 . J 1 :REMF1 
1640 PRINT3310. "MANQUE"; :PRINT3566. "PASSE"; : PR INT3437 7Q; " : NOIR 
"; :REM33 

1700 F0RI=1T0N:REM7B 

1710 PRINT3704.STRING$(64,32):PRINT3704.P<I) ;", ENTREZ VOS MISES 
(ENTREZ "CHR$(34)"ST0P"CHR*(34)" QUAND CE SERA FINI ) " : F0RJ=1T010 
:REMDA 

1720 PRINT3768,"MISE NUMERO";J!": VOUS AVEZ " 5FU ) 5 "FRANCS . 
:REMF1 

1730 INPUT"SUR QUOI MISEZ-VOUS" ;R ( I . J ) : IFR ( I . J ) ="ST0P "THEN1900EL 
SEPRINT3832,CHR*(255> ; :PRINT3832, ; : INPUT "COMB I EN MISEZ-VOUS LA-D 
ESSUS";G(I.J) :REM74 

1740 R=LEFTt(R< I ,J> ,3) : IFVAL ( R ) >OANDVAL ( R X37THEN1800ELSE IFR="PA 
I"0RR="IMP"0RR="PAS"0RR="MAN"ORR="R0U"0RR="NOI"THEN18O0ELSEPRINT 
"SUR QU0I??!";:F0RK = lT02000:NEXTK:PRINTa768, : PR I NT : PR I NT : GOTO 172 

0:REM9O 

1800 IFG(I.J)>F(I )THENPRINT"MAIS VOUS N' AVEZ QUE" ;F( I ) ! "F ! APPRE 

NEZ A COMPTER! " : F0RK = 1T02000:NEXTK :PR INT3768 . : PR INT : PR INT : GOTO 17 

20 ELSEF(I)=F(I)-G(I,J):REM22 

1810 IFF(I)=0THENJ=10:REM29 

1850 NEXTJ:REMEE 

1900 ]FJ>9THEN2000ELSEFORK=J+1T010:R(I.K)="":G(I.K)=0:NEXTK:REME 

C 

2000 NEXTI :REM59 

2010 CLS:M=RND(37)-l:REMA7 

2020 PRINT+ DEFDEFDEFDEFDEFDEFDEFDEFDEF":REM44 

2030 PRINT+ DEFUSINGUSINGUSINGUSINGUSINGUSINGUSINGUSINGUS 

INGUSINGUSINGUSINGUSINGUSINGUSINGDEF":REMD9 

2040 PRINT+ DEFUSINGUSINGUSINGUSINGSET USING SETUSING 

USINGUSINGUSINGDEF":REM43 



9":PRINT:PRINT 
' 19 20 21 
31 32 33 3 
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2050 PRINT+ DEFUSINGUSINGUSINGSET USING SETUSINGU 

SINGUSINGDEF":REMB6 

2060 PRINT+ DEFUSINGUSINGSET SETDEFSET USING SETDEFSET 

SETUSINGUSINGDEF ":REMBE 
2070 PRINT+ DEFUSINGUSINGSET SET SETDEF USING DEFSET SET 

SETUSINGUS1NGDEF":REMB4 
2080 PRINT* USINGUSINGUSING 
SINGUSINGUSING":REM93 

2090 PRINT+ USINGUSINGUSINGUSINGUSINGUSINGUSINGUSINGUSINGUSINGU 
SINGUSINGUSINGUSINGUSINGUSINGUSINGUSINGUSINGUSINGUSINGUSINGUSING 
USINGUSINGUSINGUSINGUSINGUSING":REM8A 



DEFSETUSINGSETDEF 



U 



SETDEFUSINGDEFSET 



U 



DEF DEFSET USING SETDEF DEF 
DEFSETDEF USING DEFSETDEF 



USING 



USING 



DEFUSINGU 



DEFUSING 



2220 
2230 



2100 PRINT* USINGUSINGUSING 

SINGUSINGUSING":REM84 

2110 PRINT+ SETUSINGUSINGDEF 

DEFUSINGUSINGSET":REM32 
2120 PRINT* SETUSINGUSINGDEF 

DEFUSINGUSINGSET":REM28 
2130 PRINT* SETUSINGUSINGUSINGDEF 
SINGUSINGSET" :REM66 

2140 PRINT* SETUSINGUSINGUSINGUSINGDEF 
USINGUSINGUSINGSET":REMDE 

2150 PRINT* SETUSINGUSINGUSINGUSINGUSINGUSINGUSINGUSINGUS 
INGUSINGUSINGUSINGUSINGUSINGUSINGSET":REMBA 
2160 PRINT* SETSETSETSETSETSETSETSETSET":REM4C 

2170 PRINT340."RIEN NE VA PLUS ! ! " ; :REM9F 

2180 F0RI = lT02O:PRINTai22.RND(36)-l! :F0RJ = 1T090 : NEXT J . I : REM 15 
2200 CLS:PRINTM; : IFM=0PRINT"» ET LA BANQUE RAMASSE ! ! " :GOSUB100D 
0:G0T04000:REt1B4 
2210 REST0RE:F0RI=1T018:READM1:IFM1=MTHEN!31="N0IR":G0T02220ELSEN 

EXTI:Q1="R0UGE":REMCA 

lFM/2= INT (M/2)THENQ2= "PAIR "ELSEQ2=" IMPAIR ":REM62 

I FM<19THENQ3= "MANQUE "ELSEQ3= "PASSE": REM 10 
2240 PRINT", ";Ql;",";Q2;" ET ";Q3;" ! ":PRINT:REM8D 
3000 FORI=1TON:PRINTP(I)"» " ; :F=F ( I ) :F0R J=1T010:REM83 
3010 R=LEFT$(R(I»J) ,3):REM02 

3020 IF" "+R=STR$(M)THENG=G(I>J)*36ELSEIFR=LEFTS(Q1,3)0RR=LEFT$< 
Q2;3)0RR=LEFT*(Q3>3)THENG=G(l7J)*2ELSE3050:REM8C 

3030 PRINT"V0TRE MISE NUMERO" > J : "VQUS RAPPORTE" :G; "FRANCS" :F( I )= 
F(I)+G:REM36 

3050 NEXTJ: IFF=F( I ) THENPRINT"MISEZ MIEUX LA PROCHAINE FOIS!":REM 
2E 

3060 GOSUB10000:PRINTaO;M;";"Ql"»"Q2" ET "Q3" ! " :NEXTI :REMBA 
4000 CLS:PRINT"»* JOUEUR «*",,"$$ CREDIT $*" :PRINT :REM48 
4010 F0RI = 1T0N:PRINTP(I)7 »F t I ) :NEXT:GOSUB10000:REME1 
5000 Il=i:FORI=lTON:REMDO 
5010 IFF(I1XF(I)THENI1 = I :REMA3 
5020 NEXTI:REM81 

5030 IFF(I1)>1E6THENG0=1:G0T09000:REM50 
5040 IFF( I1)=0THEN8000:REM06 
5050 F0RI=1T0N:REM58 
5060 IFF(I)THEN5200:REM29 

5070 CLS:PRINTP(I) ."jVOUS ETES FAUCHE! Y A-T-IL UNE BONNE POIRE" 
:PRINT"QUI VEUILLE BIEN VOUS FAIRE UN PRET ( 0/N) ?" :REMD8 
5080 G0.SUB12000: IF01="0"THEN5150:REM4B 

5090 PRINT"IL FALLAIT VOUS FAIRE DES AMIS AVANT ; " :P < I > " ! " :PR INT " 
LA MAISON NE FAISANT PAS DE CREDIT7 VOUS ETES EXCLU DU JEU.":GOS 
UB10000:REMC2 

5100 F( I)=F(N) :P(I )=P(N) :FOR J = 1T0N: H( I 7 J >=H(N 7 J > : NEXTJ :N = N- 1 : GOT 
05050:REM5F 
5150 INPUr'QUEL EST LE NOM DE CE NAIF QUI RISQUE AINSI SON ARGEN 

T"i0:REMBD 

5160 FORJ=1TON:IFO=P(J)THEN5170ELSENEXTJ:PRINT"CE QUIDAM EST INC 

ONNU AU BATAILLON ! " : G0T05150 :REM7B 

5170 PRINTP(J);"7V0US AVEZ " ?F( J ) i "F. " :PRINT"COMBIEN PRETEZ-VOUS 

A ";PU) i :INPUTF2:REM83 

5180 IFF2>F(J )THENPRINT"VOUS ETES BIEN GENEREUX AVEC L' ARGENT QU 

E VOUS N'AVEZ PAS. . . " :G0TO5170ELSEPRINT"0K . . . " :F< J )=F( J ) -F2:F( I ) 

= F2:PRINTP(J) J'SIL VOUS RESTE" ;F( J ) i "F. " :H( 1 7 J )=H( I 7 J )+F2:REM9C 

5190 GOSUB10000:REM24 

5200 NEXTI:RE(1CC . 

5 220 F0RI=1T0N:F0RJ=1T0N:F2=H( I7J) : IFF2=0THEN5300:REME0 

5230 1FF(IX2*F2THEN5300:REM2E 

5240 PRINTPU >;",V0US AVEZ " ;F ( I ) "F . VOUS DEVEZ";F2;"F A "P(J)?". 

":PRINT"LE REMBOURSEZ-VOUS (0/N) ?" :G0SUB12000:REM58 

5250 IF01="N"THENPRINT"PEUT-ETRE ATTENDEZ VOUS D'HERITER DE VOTR 

E GRAND-TANTE. MAIS SI VOUS ATTENDEZ TROP 7 C'EST ELLE QUI HERITE 

RA7 CAR":PRINTP(J) ;" VOUS ASSASSINERA ! " :GOSUB1000D:GOT05300 :REM2 

7 

5260 PR INT "OK. . . ":F(I )=F< I ) -F2:F ( J )=F< J )+F2:H( I 7 J )=0 :REM84 

5270 PRINT,P( I) 7P(J>:PRINT"CREDIT:",F<I) ,F ( J ) :G0SUB 10000 :REM7D 
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5300 NEXTJ j I :REMF2 

5310 L0=L0+l:G0T01500:REMD6 

8000 PRINT"V0US ETES " ; : IFN>1THENPRINT "TOUS FAUCHES ! "ELSEPR1NT"F 

AUCHE!":REM19 

8010 PRINT"C'EST LAMENTABLE! SANS METTRE AU POINT UNE SUPER-MART 

INGALE;IL ETAIT POSSIBLE DE PERDRE MOINS VITE ' " :REME4 

8020 PRINT"PORTIER. METTEZ-MOI " ; : IFN=1THENPRINT "CET INDIV1DU"EL 

SE PRINT"CES INDIVIDUS":REMBC 

8030 PRINT"DEH0RS PAR LA PORTE DE SERVI CE . " :G0SUB1000O:REM4A 

8050 CLS:GOT09500:REM56 

9000 CLS:PRINT"»$* FELICITATIONS! *t$" :PRINT"GACNANT :":REMDO 

9010 I'0RI=1T0N:IFI=I1THEN9030:REMD9 

9020 1FF(I)=F(I1)THENPRINT371 , "S"; :PRINTP< I) ; ".":REMA9 

9030 NEXTUPRINTP ( II) ; "! " : PR INT"BRAVO ! LA MAISON EST MALHEUREUSE 

MENT DANS L'OBLIGATION D'AJOUTERQUE GAGNER " ;F ( 1 1 ) ; "F EN";LDl"TOU 

RS":REM85 

9040 IFL0<20THENPRINT"LUI SEMBLE ETRE LA PREUVE D'UNE CHANCE FOR 

T SUSPECTE.ELLE ESPEREQUE QUELQUE ECHEANCE CRIARDE NE VOUS A PAS 

POUSSE A FORCER LA MAIN AU HASARD . " :GOT09500:REMCD 
9050 IFL0<50THENPRINT"EST UNE PERFORMANCE NOTABLE QUI VOUS VAUT 
D'ETRE INTERDIT DANS CE CASINO POUR CAUSE DE CHANCE A REPETIT10 
N. ":G0T09500:REMA4 

9060 PRINT"MERITE UN COMPLIMENT POUR VOTRE PATIENCE ET VOTRE OBS 
TINATION. ON S'INTERROGE TOUTEFOIS SUR VOS AUTRES ACTI VITES, QUI 

SEMBLENT VOUS PERMETTRE DE PERDRE AUTANT DE TEMPS ICI.":REMC1 
9500 PRINT:PRINT"BON> VOULEZ-VOUS REJOUER ( 0/N) ?" : G0SUB12000 : IFO 
1="0"THENRUNELSEPRINT"N' OUBLIEZ PAS LE PERSONNEL" : IFGOTHENPR INT" 
UNE PLAQUETTE DE MILLE FERA L ' AFFAIRE . "ELSEPRINT"NOUS NOUS CONTE 
NTERONS DE VOTRE CHEMISE .": END:REM7F 
999"? END:REM4A 

10000 PRINTa960,"APPUYER SUR <ENTER> POUR CONT INUER" ; :REM78 
10010 FORI9=1T0200:NEXTI9:0=INKEY$:IFO=CHR$( 13 )THENCLS :RETURNELS 
EPRINT3960,CHR$(240);:FORI9=1T0200:NEXTI9:GOT010000:REM18 
12000 01=INKEY*:IF01="0"OR01="N"THENRETURNELSE12000:REM4B 




Ce programme a la particularity d'utiliser l'astuce 
dite des "supergraphiques" . Ce nora ronflant dissimu- 
le en fait la manipulation decrite dans le commen- 
taire de la liste . Rien de sorcier, mais toujours 
plus long a expliquer qu'a appliquer . . . 

LISTE DES VARIABLES PRINCIPALES 



ENTIERS : 

N = nombre de joueurs 

M = n° sorti 

G0 = drapeau, mis a 1 s'll y a un gagnant (en 5030) 

L0 = nombre de tours ecoules 

DOUBLE PRECISION : 

F(N) = credit des joueurs 

G(N,10) = montant des mises 

H(N, N) = montant des dettes ( 1er indice = emprun- 

teur, 2eme indice = preteur) 
CHAINE DE CARACTERES : 

P(N) = noro des joueurs 

R(N, 10) = objet des mises 

Q1 = couleur du n° sorti ( ROUCE ou NOIR) 

Q2 = parite du n° sorti (PAIR ou IMPAIR) 

Q3 = champs du n° sorti (MANQUE ou PASSE) 

COMMENTAIRE DE LA LISTE DU PROGRAMME "ROULETTE" 

D'aucuns auront probablement eu la curioslte de sur- 
voler la liste du programme avant de lire ces lignes. 
Les ligne3 150 a 210 et 2020 a 2160 les ont-elles 
surpris ? Les explications arrivent ! Mais procedons 
par ordre . 

* lignes 5 a 20 : initialisation des types de varia- 
bles. 

* 110 a 220 : titre . Les PRINT des lignes 150 a 210 
dessinent le mot ROULETTE en gros caracteres. Voir 
detail plus bas ! 

* 1000 a 1005 •' entree du nombre de joueurs et de 
leurs nom3 . A noter : s'il n'y a qu'un seul joueur 
(N=l), la chaine R est lnitialisee, et vaut deux 
caracteres CHRS(8), qui font reculer le curseur de 
deux crans lorsqu'elle est imprimee (manuel du le- 



vel 2 p. CI). Ce raffinement permet de ne pas im- 
prlmer "NOM DU JOUEUR 1" mais "NOM DU JOUEUR" tout 
court . 

1010 : 

1020 a 

1500 a 



vous propose les instructions 

1070 : instructions 

1610 : dessin du tapis de Jeu, se decompo- 



sant en : 
- 1520 



imprime les 36 numeros en tableau de 
4 lignes sur 9 colonnes . 

1510 : cinq barres horizontales (la chaine 
01) encadrent les 1 lignes du tableau. 
1580 
ici. 

ces DATA sont lues 



1590 : 
tees). 
1600 : 



ce sont les numeros noirs, inutilises 
et simplement sau- 



les DATA de la ligne 16 10 contiennent 
les emplacements des cases "noires" (corres- 
pondant a des numeros noirs) du tableau. A 
chaque emplacement, un pave graphlque (la 
chaine Q) est imprime, soulignant ainsi les 
numeros noirs, comme promis dans les instruc- 
tions . 
- 1620 a 1630 : correction de quelques bavures; 
et trace des barres verticales du tableau. 
1700 a 2000 : boucle d' entree des mises des joueurs, 
Validation des objets en 1710, et des montants en 
1800. 

En 1810, lorsqu'un joueur a mise tout son argent, 
on passe directement au joueur suivant. En 1900, 
les mises inemployees sont mises a zero. 
2010 : choix du n° gagnant, de a 36. 
2020 a 2160 : dessin de la roue (meme chose que 
pour le tltre) . 

2180 : boucle d'attent;e (pour maintenir le sus- 
pense). Des numeros "bldons" s'affichent en haut, 
a droite, sur l'ecran. Vous pouvez parfaitement 
raccourcir cette boucle . 
2200 a 2210 : aff ichage du reaultat . 
3000 a 3060 : afflchage des mises gagnantes de 
chaque joueur . 
4000 a 1010 
5000 a 5020 
plus riche. 



aff ichage du credit de chaque joueur. 
IT devlent 1' Indice du joueur le 
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* 5030 : Y a-t-il un millionnaire ? 

* 5040 : tous les joueurs sont-ils mines ? 

* 5050 a 5200 : prets entre joueurs. En 5100, si un 
joueur ruine ne trouve auoun preteur, il est eli- 
mine du jeu : le joueur d'indice N prend sa place 
(done son indice), et le nombre de joueurs devient 
N-1. On recommence ensuite une boucle . Eh 5160. le 

preteur est identifie, J devient son indice. 

* 5220 a 5300 : si le credit d'un joueur atteint le 
double de ses dettes, il lui est offert de rembour- 
ser (test en 5230) . 



fin de partie si tous les Joueurs 



« 8000 a 8030 
sont ruines . 

* 9000 a 9060 : fin de partie avec gagnant (s). 

La boucle 9010-9030 determine les ex-aequos even- 
tuels. Commentaire en fonction du nombre de tours 
ecoules . 

* 9500 : faites une nouvelle partie, ou partez en 
laissant un pourboire au "croupier" . 



» 10000 a 10010 : routine d'attente avec clignote- 
ment du message . 

* 12000 : routine "oui ou non" avec INKEYS. 

Passons enfin a 1 'explication de ces fameux graphi- 
ques (voir a ce sujet 1" article sur les graphiques 
du TRS80) . 

Les lignes 150 a 210 et 2020 a 2160 sont des affi- 
chages de "supergraphiques" (e'est la le non consa- 
cre, cf TRACE n° 3). Les chaines de caracteres affi- 
chees par les PRINT contiennent uniquement des blancs 
et des caracteres graphiques. Trois caracteres dif- 
ferents sont employes, de codes respectifs 131, 176 
et 191. Mais cet usage n'a pas ete prevu par le Le- 
vel 2, aussi ces codes sont-ils, lors du listage, 
respectivement transformes en SET, DEF et USING. Le 
BASIC considere en effet que ces codes sont ceux 
d ' instructions . 

Mais comment diantre entrer ces supergraphiques( ta- 
per les lignes telles qu'elles sont listees ne don- 
nera aucun graphique) ? 



20000 


' .__— — "pi 1 1 c fi 1 1 n t 




92 


— — — — — — — — — r L u a 'i \J <J 1 




20010 


' Toutes les 1 lanes commencant par PRINT+ seront 


88 


20020 


transf ormees en PRINT" (pas d'espace separateur) 


7E 


20030 


AD=PEEK ( 16548)+256*PEEK< 16549) 


debut zone BASIC 


64 


20040 


G0SUB 20130 


aJustement entier 


E3 


20050 


LOPEEK <AD>+256*PEEK(AD+1) 


1 ien de cha i ne 


4F 


20060 


IF LC=0 THEN END 


fin du programme 


E9 


20070 


AD=AD+4 : G0SUB 20130 


pointe lere instr 


AB 


20080 


IF PEEK(AD)<>178 THEN 20120 


est-ce PRINT ? 


EF 


20090 


AD=AD+1 : G0SUB 20130 


octet suK'ant 


9A 


20100 


IF PEEK(AD)O205 THEN 20120 


est-ce + ? 


E4 


20110 


POKE AD/34 


oui . Y met tre 


5B 


20120 


AD=LC : GOTO 20040 


1 i ane su i vante 


74 


20130 


IF AD<32767 THEN RETURN 




CI 


20140 


AD=-1*(65536-AD) : RETURN 




65 





CONSIGNES PRATIQUES D' ENTREE DU PROGRAMME 



a) Frappez le programme tel qu'il est donne dans la 
liste et faites-le suivre du programme "PLUSQU0T" 
(lignes 20000 a 2011(0). 

b) Verifiez ensuite la conformite des lignes entrees 
en vous servant du programme VERCS publie dans le 
numero 2 de TRACE (cette mesure est optionnelle 
mais plus prudente . . . ) . Corrigez les erreurs 
eventuelles . 

c) Sauvez le tout. 

d ) Executez le programme PLUSQUOT en frappant : 
RUN 20000. 

e) En listant le programme, vous remarquerez que 
les PRINT+ ont ete transformes en PRINT" (atten- 
tion : pas d'espace entre PRINT et +) . 

f) Relancez le controle de checksum (VERCS). Les 
lignes contenant les "super-graphiques" doivent 
donner de nouvelles valeurs {voir ci-dessous). 

g) Eventuellement , vous pouvez alors supprimer 
PLUSQUOT (DELETE 20000-20110). Sauvez votre pro- 
gramme de roulette qui est maintenant operation- 
nel . 

Remarque : Pour editer une ligne "supergraphique" 
remplacez tout d'abord PRINT' par PRINT+, puis fai- 
tes votre modification. II faut ensuite utiliser 
PLUSQUOT pour changer le + en ". 



READY 










>print uar'.O) 








-LIGNE 


00150 


CHECKSUM 


TROUVE : 


IE 


-LIGNE 


00160 


CHECKSUM 


TROUVE : 


35 


-LIGNE 


00170 


CHECKSUM 


TROUVE : 


2B 


-LIGNE 


00180 


CHECKSUM 


TROUVE : 


AB 


-LIGNE 


00190 


CHECKSUM 


TROUVE : 


17 


-LIGNE 


00200 


CHECKSUM 


TROUVE : 


00 


-LIGNE 


00210 


CHECKSUM 


TROUVE 


DA 


-LIGNE 


02020 


CHECKSUM 


TROUVE • 


EF 


-LIGNE 


02030 


CHECKSUM 


TROUVE 


84 


-LIGNE 


02040 


CHECKSUM 


TROUVE 


EE 


-LIGNE 


02050 


CHECKSUM 


TROUVE 


61 


-LIGNE 


02060 


CHECKSUM 


TROUVE 


69 


-LIGNE 


02070 


CHECKSUM 


TROUVE 


5F 


-LIGNE 


□2080 


CHECKSUM 


TROUVE : 


43 


-LIGNE 


02090 


CHECKSUM 


TROUVE 


35 


-LIGNE 


02100 


CHECKSUM 


TROUVE 


2F 


-LIGNE 


02110 


CHECKSUM 


TROUVE 


DD 


-LIGNE 


02120 


CHECKSUM 


TROUVE 


D3 


-LIGNE 


02130 


CHECKSUM 


TROUVE 


11 


-LIGNE 


02140 


CHECKSUM 


TROUVE 


89 


-LIGNE 


02150 


CHECKSUM 


TROUVE 


65 


-LIGNE : 


02160 


CHECKSUM 


TROUVE 


F7 


READY 
> 











.Frederic Mora 
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memento. 



Z-BUG 



Lorsqu'on achete le programme EDTASM+ de la firme 
MICROSOFT, 11 est fournl avec celui-ci (du molns Chez 
Sideg !), un resume francise. En ce qui concerne 
l'utilitalre ZBUG qui est incorpore a EDTASM+ et qui 
est aussi enregistre separement sur la cassette ou 
sur la dlsquette, il n'existe pas encore a l'heure 
actuelle et a ma connaissance, de traduction fran- 
caise (pour un essai d'EDTASM*, voir TRACE numero 2). 
Cet article sur Z-BUG devrait combler partiellement 
cette lacune. 

Entre les versions cassette et disquette, il y a de 
legere3 differences mals les ordres d 'entree-sort le 
sont les memes au "C" ou au "D" pres . II est rappele 
que 8 (escape) est genere par l'appui simultane des 
touches "SHIFT 1 et "fleche haute". De merae, il faut 
se souvenir que toute valeur lntroduite est conside- 
red comme etant en hexadecimal si elle n'est suivie 
d'aucun sufflxe. Pour specifier une valeur declraale, 
il faudra la faire suivre de "T" (Ten = dix en an- 
glais), pour une valeur octale ce sera "Q" et pour 
une valeur ASCII 11 faudra l'ecrire entre deux guil- 
lemets . 

Z-BUG permet de faire la mlse au point des program- 
mes en assembleur que l'on a crees au moyen de l'e- 
diteur ou de modifier des programmes objets exis- 
tants . Lorsque le symbole "■?£" apparalt sur la gau- 
che de l'ecran, cela signifie que Z-BUG est pret et 
qu'il attend une commande. Pour afficher une position 
memoire du programme, on ecrit simplement son adres- 
se suivie de "/" (slash). Quand on est dans un des 
modes d'affichage, on peut modifier le contenu du 
programme en ecrivant la nouvelle valeur suivie d'un 
appui sur la f leche basse. Pour passer a l'adresse 
suivante on appuie aussi sur f leche basse. Lorsqu'on 
est en mode "symbolique" , l'adresse est remplacee 
par 1' etiquette du programme source eventuellement 
suivie du 3igne "+" et d'un nombre inferieur a 32. 
La fonction que J'appelle "Trace" dans le resume qui 
va suivre, est en fait un afflchage du bloc de memoi- 
re specifie. A ce moment-la, l'appui simultane de 
"SHIFT" et "Q " arrete le defilement et BREAK en 
est la commande abortive. 



Lorsqu'on execute 
tres sont affiche 
(refresh). Ceux-c 
les registre3 dou 
F, H, L, BC, DE, 
mentation america 
les registres PC 
ZBUG. Les "points 
au point, car lis 
gramme passe bien 
nes.En faisant la 
programme et on s 
ret" rencontre (s 
des commandes "ad 
la prochaine Inst 



la commande "SR", tous les regis- 
s sur l'ecran, sauf le registre R 
i peuvent etre modifies ain3l que 
bles, c'est-a-dire : A, B, C, D, E, 
HL, SP, PC, IX, IY, et I. La docu- 
ine conseille de ne pas modifier 
et SP car ceux-cl sont utilises par 
d ' arrets" sont bien utiles en mise 
indiquent si le deroulement du pro- 
par un (ou plusleurs) endrolts don- 
commande "adriG", on execute le 
'arrete sur le premier "point d'ar- 
i specifie). Dans ce cas, 1 'usage 
rg" ou "(J" permettent d'executer 
ruction . 



Dans le resume qui suit, j'ai distingue trois par- 
ties : une partie commune aux deux versions, celle 
qui est speclflque aux cassettes et enfin celle qui 
est relative aux disquettes. 





ZBUG 




Version commune 


$A 


Affichage en "ASCII" 


SB 


Affichage par octets (8 bits) 


nb$C 


Execution d'un programme depuis 




un "Point d'arret" 


SD 


Affichage des "Points d'arret" 


SE 


Retour a 1 ' edi t eur-assemb 1 eur 


adrSG 


Execution d'un programme depuis 




une adresse 


n$I 


Les modifications en entree se 




font en base n 


SM 


Affichage par mnemonique Z-80 


SN 


Etiquette numerique 


n$0 


Affichage en base n 


$R 


Affichage des registres du Z-80 


SS 


Etiquette symbolique 


add adfJT ■ Fonction "Trace" 


$W 


Affichage par mot (16 bits) 


adrSX 


Creation d'un "Point d'arret" 


SV 


Suppression des "Point d'arret" 


m$Y 


Suppression d'un "Point d'arret" 




Version cassette 


obj! 


IL : Chargement d'un programme en 




code oojet sur Cassette 


add ad< 


ado objSP Sauvegarde du code 




objet sur Cassette 




Version disquette 


$K : Retour au SED 


obj$LC : Chargement d'un programme en 




code objet ( Cassette ) 


"fic"$LD Chargement d'un programme 




code objet ( Disque ) 


add adf ado nomSPC Sauvegarde du 




code objet ( Cassette ) 


add ad1 


ado "fic"$PD Sauvegarde du 




code objet ( Disque ) 




LEGENDE 


add : 


Adresse de debut 


adf : 


kdresse de fin 


ado 


Adresse d'origine 


adr : 


Adresse 


fie : 


Nomf ic/ext .Motdepasse: Num_l ecteur 


m : 


Numero du "Point d'arret" 




(m = a 7) 


n : 


3 , 10 . 16 


nb : 


Nombre de passage dans une boucle 


obj : 


Norn Ou programme objet (Cassette) 


reg : 


Regi st re 


SED : 


Systeme d ' expl o i t at 1 on de 




31 squette 


S 


Shift f 1 eche haute (escape) 



-Christian Kraemer 
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utilitaire 

Affichez vos 
minuscules 



CONFIGURATION DE 6ASE ! NODELE 1 CASSETTE OU 
DISOUETTE - 4. 10. 32 OU 481. 



30 
3D 

40 



FE 
FC 
F6 
Et 
E2 
US 



POKE 
A. 6 IKE 



ltinuKUl« . I' Reran R.B. i- 15/06/82 

11 faul o" aoord fair* la Rinuacul* modif icat ion 

•rorosat par Alain PINAUD a la pao 124 tie 

LA PRATIQUE OU TRS-80 p MOluRR III 
10 CLS ' PRINT TABI23I "• MINUSCULES •" ' PRINTIREM36 
60 CLEAR 103 I L -PEEK 1 16541 P I M-PEEKM4S62P I HL"L'Na236-33PREtl 
AD 

70 GOSUB 160 I POKE 16561. L : POKE 16362 .HIRENC» 
BO 'IL-HL'3 i 0OSU6 160 I A-HL IGOSUB I'D :REP10A 
90 IF PEEK116396I <> 201 THEN DCFU5R-A ELSE POKE 16326. 
16327 .HlREMEA 

100 FOR 1-0 TO 30 1 A-I-HL I GOSUB 170 I READ B I POKE 
T.TIRE1EC 

110 PRINT •• NOUVEAU RENORY SUE ■'HL-l I PRINT1REI17F 
120 HL"HL»21 > GOSUB 160 I A-HL-13 1 GOSUB 170 ! POKE A. LIRE 

HOC 

130 A-HL-12 i GOSUB 170 I POKE A.HIREMAO 

HO PRINT"Tap« I ?U5RU> Pour Mmuiculff au clavitr . ou 

'USR(O) Pour le cUvipt NORHAL" IREMC1 
130 CLEAR 30 : PRINT ■ DELETE 10-230 : EN0IREPIF3 
160 PI«INT<HL/256> I L"HL-2S6»H : RETURNIRENOC 
170 IF A > 32767 I A-A-65336'»£"4! 
180 RETURNIREHBA 

190 DATA 205.127.01D.125. 183.040.007 .033 .088 .D04:REri43 
200 DATA 034.030. 064. 201>033. 088. 00*.. 034. 030.064. 201PREM8D 
210 DATA 221.110.003.221. 102.004, 218.134.004. 22UREM46 
220 DATA 126.003.I83.040.001.1I9.12I.234.032.2I8IREM27 
230 DATA 006. 003. 254. 128. 210. 166. 004. 193. 123. O04IRE1I6 



utilitaire: 



C'est blen coram, le generateur de caracteres du mo- 
dele 1 contient les lettres minuscules... mais on ne 
peut pas les afficher a l'ecran ! 

On trouve a la page 124 de la PRATIQUE DU TRS80 volu- 
me 3, la description d'une modification a apporter au 
eabl'age de l'unite centrale (ajout d'une RAM et d'un 
lnverseur), permettant l'acces aux minuscules. 
Malheureusement, cela ne surf it pas pour les visua- 
liser autrement que par des POKE aux adresses 15360- 
16383. 

Pour que ca marche vraiment, il Taut adjoindre a la 
modification du "materiel" une modification du logl- 
ciel qui rende la premiere comprehensible a l'lnter- 
preteur BASIC. 

C'est 1' ob jet du programme ci-apres, qui lmplante 
une routine binaire de 51 octets en fond de memoire, 
juste en dessous du memory size precedemment defini, 
apres deplacement de ce dernier. Le programme tourne 
sur tou3 les modeles 1, niveau 2, cassette ou disque, 
UK a «8K. 

Apres un RUN. il suffit d'entrer au clavier ?USR( 1 ) 
pour acceder aux minuscules (en SHIFT), ou ?USR(8) 
pour revenir au clavier normal (ne pas oublier de 
basculer l'inverseur ) . 

Le programme BASIC est efface de la memoire apres 
son lancement, mais la routine binaire reste active 
jusqu'a 1 'arret de 1 'ordinateur . 



.Roger Brousmlche 



Evitez les rebonds 



Ce court programme utilitaire est destine aux seuls 
utilisateurs du TRS80, modele 1, niveau 2, dont les 
nerfs sont mis a vif par les frappes multiples occa- 
sionnees par le rebondis3ement des touches du clavier. 



Le programme SYSTEM KBFIX que vous avez peut-etre 
recu en meme temps que votre ordinateur, elimine ce 
defaut, mais son chargement constitue une operation 
longue , compliquee et aleatoire. Par exemple, iln'est 
pas recopiable et 11 exlge la definition prealable 
d'un MEMORY SIZE precis. 



Rien de tel avec le programme BASIC que nou3 vous 
proposons. Quelle que soit la tallle de votre memoire 
vive (de IK a 18K), MEMORY SIZE? (ENTER) .CL0AD, puis 
RUN suffit pour activer la sous-routine anti-rebonds, 
qui implante 45 octets en memoire haute apres avoir 
deplace le MEMORY SIZE anterieur de H5 ou 17 octets. 

Done, pas de complexe, MEMORY SIZE? nnnnn (ENTER) 
convient tout aussi Men, l'espace memoire ainsi pro- 
tegee (par exemple pour la S0MME DE C0NTR0LE du n° 
de TRACE), restera protege. 



1 ' CONFIGURATION DE BASE I HOOELE I NIVEAU 2 K7 

2 ANCIENNE VERSION IHENORY SIZE' - 4 A <-6v 

3 • 

10 ' STABILISATION DU CLAVIER 

20 ' Poser BROVBNICHE 07/82 

30 CLEAR 97 I L-PEEK( 165611 I H-PEEK I 163621 



F£ 

Ft 



DE»L'H»236-44!RENF 



40 HINT "• NOUVEAU HERORY SUE • 'DE-imClffC 

50 HL'DE-3 I COSUB 130 1 POKE 16561 .L ■ POKE 16362-MIRENB3 

60 D-PEEKI 16526) : E-PEEKI 16527 1 1REHE2 

70 HL-DE : GOSUB 130 : POKE 16526. L > POKE 16527 . MIREP19E 

80 FOR 1=0 TO 44 I A-I+HL I GOSUB 140 1 READ B : PONE A,B : 

IiREMOO 

90 PRINT "• LE CLAVIER EST STABILISE - IREI163 

300 HL"0E«I3 i GOSUB 130 I A-D£»27 : GOSUB 140 I POKE A.L 

DE*28 I GOSUB 140 1 POKE A.MIREHF5 

110 A-DE*7 I GOSUB 1*0 I B-USRi Al iREnEB 

120 POKE 16526. D I POKE 16527. E : DELETE 10 - 210 ■ ENDiREtl 

130 H-INTIHL/2361 > L=HL-H»236 I RE1URNIREHFA 

140 IF A > 33747 l A.A-63536i|IEn3r 

130 RETURNiREROS 

160 DATA 205.127.10:RENEE 

170 DATA 34,22.64.201.33.54iREN3B 

180 DATA 64.1.1.36.22.0.10.95.174.I15IREM6B 

I'D DATA 163.32.S.20.44.203.1.242,0.D:REH6F 

200 DATA 201 .95.197.1 ,22D. 5. 205.96. D.193PRENB5 

210 DATA 10.163.200. 195.251 >3>REND3 



Attention : en fin de programme (ligne 128), la fonc- 
tion USR est restituee a sa derniere adresse, et le 
programme est efface, de sorte qu'un NEW n'est pas 
necessaire avant l'ecrlture d'un nouveau programme. 

N'oubliez pas de faire un CSAVE avant le premier RUN ! 
, Roger Brousmlche 
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materiel 



Un PC 1500, pourquoi f aire ? 
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SHARP 



rmn\t» MUWin biii-o 



Rumeurs puis confirmations annoncent la commerciali- 
sation du TRS80 PC-2 pocket. Cette machine, par ses 
capacites et son langage BASIC evolue, est le succes- 
seur direct du premier pocket de chez TANDY ; mais 
elle est aussi, d'apres les descriptions, la copie 
quasi-conforme du SHARP PC- 1500. Quelles sont done 
les caraeteristiques du PC- 1500 ? 

D'un gabarit plus important que le PC— 1211, il est 
dote d'un microprocesseur 8 bits mais, malheureuse- 
ment 11 faudra un descriptif de SHARP sur son jeu 
d' instruction pour programmer en langage machine... 
Son clavier de 65 touches, est de type "QWERTY" et 
11 est peu probable qu'une version francaise de la 
machine voie le jour... ; on notera la taille plus 
importante de la touche "space" et la presence de 
six touches de fonction programmables . Plus etonnant 
est l'affichage, forme d'une matrice continue de 
156x7 points, chaque point etant adressable ! Sur le 
cote gauche, un connecteur 60 broches relie le po- 
quette a ses peripheriques (imprimante, tablette gra- 
phique, etc . . . ) . 

Le BASIC est evolue" : les entrees-sorties sur l'e- 
cran sont gerees par les ordres PAUSE, PRINT, INPUT; 

Pausse affichant les donnees pendant environ 2 secon- 
des WAIT permet de pararaetrer en duree 1'ordre PRINT, 
de a l'inflni . 

Le traitement des chalnes de caracteres est cette 
fois-ci (contrairement au PC- 1211) bien present. Une 
variable contient seize caracteres mais les tableaux 
Jusqu'a deux dimensions, peuvent contenir 80 carac- 
teres par chaine : DIM A8 ( 1, 1 ) X80 creera un tableau 
a 2 dimensions de I) chalnes de 80 octets chacune . 
Tous les operateurs sur ces chalnes sont aussi pre- 
sents dans le BASIC : LEFTS, RIGHTS, MIDS, ASC, CHRS, 
VAL, STRS, concatenation de chalnes. LEN. 

Les variables numeriques sont obligatoirement reelles 
et ne peuvent etre entieres : un inconvenient ear 
avec 16 octets par variables, 1,8k de memolre se 
consomme vite... Elles sont definies, comme les va- 
riables alphanumeriques, par les deux premiers carac- 
teres de leur nom : ABC est done egal a ABD. 

Utile aux amateurs de jeux en temps reel, la fonc- 
tion TIME indique le mois, le jour, l'heure, minutes 
et secondes ! II est done facile de transformer son 



poquette en reveille-matin dont l'efficacite sera 
assuree par un BEEP parametrable en nombre, hauteur 
de la note (230 Hz a 7 KHz), et en duree. Avis aux 
melomanes inf ormaticiens . . . 

Parmi les instructions que tout BASIC doit posseder 
GOTO, G0SUB, IF... THEN (pas de ELSE sur le PC- 1500), 
etc, on notera l'existence de branchements condition- 
nels : ON X GOTO, ON ERROR G0SUB, GOTO X (variable), 
d 'operateurs booleens AND, OR, NOT, le mode "trace" 
TR0N, TR0FF, les nombres aleatolres RND, RANDOM, etc. 

Une limitation cependant sur les boucles dont l'ori- 
gine, la fin, et l'increment doivent etre des entlers 
compris entre -32768 et 32767. 

On dispose de 6 touches de fonctions (mode RESERVE) 
qui ont trois significations chacune et peuvent stoc- 
ker un retour-chariot (CHRS(13)). 

Toutes les fonctions scientif iques sont presentes : 
SIN, COS, TAN, ACS, ATN, LOG, LN, INT, SOR, eleva- 
tion a la puissance, etc... Trois modes de calcul 
trignometrique possibles : DEGREE, RADIAN, GRAD. 
Les caracteres comprennent 1 'alphabet majuscule et 
minuscule, numerique, etc... 



Mais le plus bel atout de ce "super 
sans aucun doute 1' interface casset 
telecommande logicielle ou manuelle 
phones, fichiers de donnees, concat 
grammes, trace sur imprimante de ca 
tallies possibles et dans les quatr 
(haut, bas, gauche, droite), trace 
quatre couleurs et graphiques ; en 
veritable petite table tracante que 
la... 



-poquette" est 
te-imprimante : 

de 2_ magneto- 
enation de pro- 
racteres en 9 
e directions 
de courbes en 
bref, e'est une 

SHARP a concu 



Le tout est accompagne d'un manuel d'emploi tres 
bien ecrlt, avec humour mais ou , par mesure de pre- 
caution de la part de SHARP, certaines fonctions 
telles PEEK, POKE, CALL, ne sont pas mentionnees 
(suite de ceci dans un prochain article avec ^ au- 
tres fonctions "inconnues" . . . ) et d'un manuel d 'ap- 
plication contenant une mine de programmes de toutes 
sortes . 



.Daniel GLAZMAN 
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methode. 



Convertissez vos 
programmes du PC 1 au PC 2 



Le TRS80 PC2 (ou SHARP PC- 1500), raalgre un BASIC 
"etendu", necessite parfois 1 'adaptation et la trans- 
formation de programmes ecrlts pour le PCI (PC-1211) 
pour que ceux-ci "tournent" . Voici done les princi- 
paux problemes de compatlblllte : 

1) Les tableaux de variables 

Sur le PC1 les variables A(1) a A(26) (ou AS( 1) a 
A3(26)) SONT LES MEMES que les variables A a Z (ou 
A3 a ZS), ce qui n'est pas le cas sur le PC2 ; ceoi 
engendrant une ERROR 6 ou tout simplement le "plan- 
tage" du programme. Solution du probleme : 

a) si le3 variables sont numeriques, dimensionner 
en debut de programme un tableau A( 100) et rem- 
placer les variables A...Z par A(1)...A(26) ; 

b) si les variables sont alphanumeriques, dimen- 
sionner en debut de programme un tableau A3 

( 100)*7 et remplacer les variables AS...ZS 
par AS( 1). ..AS(26) ; 

c) si les variables sont numeriques OU alphanu- 
meriques, la solution est moins evidente, re- 
portez-vous a la note 3) - 

Parfois sur le PCI, le programme simule un tableau 



a deux dimensions, leur utilisation est possible sur 
le PC2, pourquoi s'en priver ? 

2) Le3 flchlers de donnees 

Apres avoir satisfait au 1), remplacer les instruc- 
tions PRINT 4 A(X) par PRINT i A(») [X etant un en- 
tier I* x( 201]. 

Remplacer les instruction INPUT i A(X) par IMPUT t 
AC) [1< x<20«]. 

3) La meilleure methode d'adaptatlon restera, pour 
les bons programmeurs, de decortiquer le programme, 
d'un falre un organigramme (facultatif) , et de re- 
taper le programme sur PC2 en tenant compte de ses 
capacite3. 

'I ) Evaluation d 'expression 

Transformer toutes les expressions du type 5AB+ X 
en (5*A»B)*X. 

Et voila ! Apres ees conseils, vous devez etre capa- 
ble faire "tourner" sur PC2 tout programme du PC1, 
MAIS ATTENTION A VOTRE CAPACITE MEV car sur PC1, A 
prend 1 octet et sur PC2, A( 1) prend 1 octets... 



.Daniel Glazman 



technique: 



Dans les entrailles 



logicielles du PC 1500 



Dans le manuel d 'instruction du PC-1500, ne sont pas 
mentionnees 7 fonctions qui sont pourtant bien pre- 
3entes dans le BASIC ainsi que dans le manuel du PC2. 

PEEK, POKE, PEEK i, POKE i, CALL, OPN et une myste- 
rieuse fonction P ; PEEK, POKE, CALL sont bien con- 



nues des programmeurs en langage machine ou des "bi- 
douilleurs" susbstantiels (sic !) : POKE ecrlture 
d' octet ; PEEK lecture d' octet ; CALL appel d'une 
30us-routine en assembleur a partir de BASIC ( avec 
transmission d'un parametre (variable numerique ou 
alphanumerique) . 
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Plus etonnantes sont PEEK 4 et POKE 4 qui adressent 
64k de memoire qui ne sont pas des meraoires "de lo- 
glciel" mais de donnees (d'apres manuel PC2) ; de 
plus, elles concernent les entrees-sorties : lors 
d'une lecture d' octet (avec le programme qui suit) 
entre 61^40 et 65535, le haut-parleur emet des cli- 
quetis . . . 



10 

20 
30 



FORI=0 TO 4095 
A=PEEK^ (1+61440) 
NEXT I : END 



OPN sert a la connexion entre le PC- 1500 et 1 peri- 
pherique et deroute les ordres ecran vers ce peri- 
pherique (equivalent a la coramande ROUTE des ordina- 
teurs de table) et s'utilise avec 1 parametre alpha- 
numerique de 3 caracteres ; exemple : 

OPN "LCD" retablit 1' ecran integre comme etant le 
peripherique de sortie. 



La fonction P est la plus belle de toutes : elle 
n'est pas accessible au clavier, ne sert a rien 
(pour 1' instant ?) et declenche une EFROR 1... 

La fonction STATUS, d'apres le manuel, a 2 utilisa- 
tions : 



STATUS : memoire libre 

STATUS 1 : memoire utilisee par le programme 

STATUS 2 : adresse de fin de programme + 1 

STATUS 3 : adresse de debut des variables 



STATUS 4... STATUS 255 



n" de la ligne execu- 
ted lors d'un BREAK. 



4 0000 - 


& 


3FFF 


4 4000 - 


k 


40C4 


&40C5 - 


& 


57FF 


&5800 - 


& 


6FFF 


&7000 - 


& 


7FFF 


4 8000 - 


& 


BFFF 


4C000 - 


& 


FFFF 



A l'aide de toutes ces instructions, de quelques 
appuis sur ALL RESET, je vous presente une CARTE 
MEMOIRE. 



vide 

memoire de reservation 

programme + donnees (avec CE-151, 

module de 4k MEV) 

vide 

MEV systeme (voir plus loin) 

MEM additionnelle 

MEM BASIC (voir plus loin) 



Elle s'etend de 4 7000 a 4 7FFF mais est en fait 
constitute de deux zones : 



. de &7000 a 4 77FF, une zone ds 512 octets 

repetee 4 fois identiquement ; 

. de &7800 a 4 7FFF, une zone de 1 Ko repetee 

2 fois . 



J'utiliserai ici les zones de &7600 a 4 77FF et 
4 7800 a 4 7BFF car elles se succedent . 
La zone 4 7600 a 4 77FF contient 2 types d' informa- 
tions: le contenu point par point de l'afficheur et 
les variables ES a ZS. 

Les octets & 764E et 4 764F indiquent par l'etat de 
leurs bits le positlonnement des indications de mode 
du PC- 1500 : 



\blt 
octets. 


7 


6 


5 


4 


3 


2 


1 


<a 


&764E 


DEF 


I 


II 


III 


SMALL 


tit 


SHIFT 


BUSY 


4 764F 


non 
utilise 


RVN 


P?0 


RESERVE 


non 
utilise 


RAD 


G 


DE 



- de 4 7650 a 4 76FF : 11 blocs de 16 octets pour 

ES a 02 

- de 4 7600 a 4 764D et de 4 7700 a & 774D : contenu 

point par point de l'afficheur 
-de 4 774Ea 4 774F : inutilisee 

- de 4 7750 a 4 77FF : 11 blocs de 1b octets pour 

PS a ZS 



La zone 4 7800 a 4 7FFF contient des informations 
tres dlverses : 



4 7875 : colonne pointee par GCURS0R (0 x 155 J 
4 7883, 7884 : adresse de la derniere variable 
utilisee (=VARPTR) 

4 7898 : ERN In" de la derniere erreur commlse) 
de 4 78C0 a 4 78FF : 26 blocs de 8 octets pour va- 
riable A a Z 

de 4 7900 a 4 79CF : 26 blocs de 16 octets pour 
variables AS a DS 

de 4 7B10 a 4 7B5F : 80 octets pour le travail sur 
sur les chaines alpha 

de 4 7B60 a 4 7B9F : 80 octets pour la sortie de 
caracteres avec PRINT 

de 4 7BA0 a 4 7BFF : 80 octets pour le buffer d' en- 
tree BASIC 

4 78B4, 4 78B6 : ERL (n° de ligne ou s'est pro- 
duit 1' erreur) 



MEM MACHINE BASIC 



4CD71 : eteint la machine 

4 E000 : RESET 

4 FC00- 4 FE7F : table des carac- 
teres ASCII 

4 FE80-4FEFF : tabled 'assi- 
gnation du clavier 

4FF00-4FFFF : table des adres- 
ses des routines principales du 
BASIC. 



Dans la face cachee du PC- 1500 partie n° 2, nous 
vous presenterons une premiere mondlale (sic !) : 
la reassignation clavier et caracteres du PC- 1500. 
Dans la partie n° 3, la structure du BASIC et des 
donnees... Affaire a suivre si vous le de3irez ! 



Cependant "nobody's perfect" alors si vous avez fait 
une trouvaille digne de ce nom sur le PC- 1500, PC2, 
ecrivez-moi vite. 



— Daniel Glazman 
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G£rez vos fichiers 



sur PC 1211 




On peut, si l'on est collectionneur, stocker le fi- 
chier de sa collection : raoi, Je collectlonne les 
disques de rock, et voici un exemple d'un ensemble 
de programmes pour collectionneurs ! DISC, LIRDISC 
et SELDISC. 



On charge le fichier sur K7 a l'aide de DISC (1.70- 
180) : 



- 3 variables, LS, MS, N3, contiennent le nom du 
groupe : le if... goto de 1.70 est a utiliser en fin 
de K7. La relecture d'un fichier sur K7 estlongue, 
et il vaut mieux ne pas s'obliger a etre present a 
l'arret de la machine. Inconvenient, la K7 n'arrive 
pas en fin de bande a la relecture, pas d' Auto-Stop, 
et les piles du magneto se vident ; avantage : le 
PC- 121 1, lui, s'arrete ! 



- en ligne 80, rentrer la nationality du groupe - 
en 90, le titre du dl3que. 



- 1 . 100 : variable S : nombre de tours 33, 15, . . . 
ou (code pour la 1.610 de LIRDISC). 
Variable T : diametre du dlsque. Les collectionneurs, 
ou simples amateurs savent que l'on utilise les me- 
sures CB et F. Pour utiliser la suite a bon ese-lent, 
s'en tenir a cette regie : 

30 era = plus de 6 titres, ou plus de 25 mn . 

12 in .= moins . . . 



Petits formats : cela est indifferent. 

Se souvenir que toute collection digne de ce nom 
comportera des albums «5t, lis ne devront pas etre 
confondus avec des maxi !l5t ! 
Les lignes 110/120 definissent l'unite de mesure. 



- 1.150: comparer XS et 02 se revelera utile. Toute- 
fois, attention ! Des groupes francais ont enregis- 
tre a Londres, le pressage original de certains grou- 
pes allemands est sur un label anglais et des anglais 
ont sorti des versions speciales de certains titres 
pour le Canada. II faut d'ores et deja aonger que 
ces pressages sont corrects ! 



II GOTO 30 
lOtPRINT L*IM*» 

N*:PRIHT "<" 

JO*!")"! 

PRINT P»I0»I 

R*IPRINT 

USING "t*I"l 

Si" TOURS" ST 

i" "»U*« 

PRINT VI" TI 

TRES- 
IS: PRINT "EDITE 

UR: "IU*i 

PRINT "PRESS 

AGE: "IX*: 

PRINT Y*»Z»: 

PRINT " ": 

RETURN 
20: INPUT I-DISC 

"5A<12)iIF L 

*="X"END 
25: RETURN 
30: INPUT "IN/OU 

T?"iA* 
40: IF A*»"IN" 

BEEP 2: PAUSE 

"K7 REC !": 

GOTO 70 
50: IF A*="0UT" 

GOTO 200 
60: GOTO 30 
70: INPUT "GROUP 

E <X"FIN): - ; 

L*: IF L*-"X" 

GOTO 170 
75: INPUT H*.N* 
80: INPUT "NAT10 

NALITE:"SO* 
90: INPUT "TITRE 

:"iP*.Q*.R* 
100: PAUSE "FORMA 

T": INPUT "NB 
TOURS: "iS: 

INPUT "CM' IN 

:";T 
110: IF <T»7>+<T= 

12>LET U*="l 

N." 
120: IF a=17>-KT 

=25>+<T=3CD 

LET U*-"CM." 
130: INPUT "NB TI 

TRES: " ! V 
140: INPUT "EDITE 

UR:"iU* 
150: INPUT "PRESS 

AGE:"»X* 
160: INPUT "REMAR 

QUES:"SY*.Z* 



170JPRINT 8"BISC 
"iA<12)iIF L 
*="X"END 

180: GOTO 70 

200: PAUSE "CRITE 
RE DE LECTUR 
E": INPUT "PA 
R GROUPE ? " 
!A*:IF A*-"0 
"GOTO 300 

210: INPUT "PAR T 
ITRE DE DISQ 

UE ? -;a*:if 

A*="0"GOTO 4 

00 
220: INPUT "PAR X 
DISQUES ? " 

!A*:IF A*-"0 

"GOTO 500 
230: INPUT "PAR N 

ATIONALITE ? 
"!A*:IF A*» 

"O"GOT0 600 
240: INPUT "PAR P 

RESSAGE ? "I 

H*:IF A*="0" 

GOTO 700 
250: INPUT "PAR E 

IHTEUR ? "iA 

*:IF A*="0" 

GOTO 800 
260: INPUT "PAP F 

ORMAT ? "IA* 

: IF H*="0" 

GOTO 900 
270: INPUT "LES C 

OMPTER ? u ;A 

*:D=0:E=0:IF 

A*="0"GOTO 9 

50 
280: GOTO 200 
300: INPUT "GROUP 

E RECHERCHE: 

"!B* 
305:G0SUB 20 
310: IF B*-L* 

GOSUB 10 
320: GOTO 505 
400: INPUT "NOM D 

U DIS0UE:"iB 

* 

405: GOSUB 20 
410: IF B*«P* 

GOSUB 10: END 
420: GOTO 405 
500: INPUT "NB SO 
UHAITE:"iBl 
FOR C=1T0 B: 



GOSUB 20 
510: GOSUB 10 
520: NEXT C 
530: GOTO 30 
600UNPUT "NATIO 
'HALITE RECHE 

RCHEE:"1B* 
605: GOSUB 20 
610: IF B*«0* 

GOSUB 10 
620: GOTO 605 
700: INPUT "PRESS 

AGE RECHERCH 

E:"!B* 
705: GOSUB 20 
710: IF B*»X* 

GOSUB 10 
720: GOTO 705 
300: INPUT "NOM D 

E L EDITEUR: 

"!B* 
805: GOSUB 20 
810: IF B*=U* 

GOSUB 10 
820: GOTO 805 
900: PAUSE "LEQUE 

L :": INPUT " 

NB TOURS: "(B 

: INPUT "CM/ I 

N:"!C 
905: GOSUB 20 
910: IF (B-S>*<C* 

T)G0SUB 10 
920: GOTO 905 
950: INPUT I"DISC 

••;A<12):IF L 

*="X"G0T0 98 


953iD«D*l 
960: IF <S-33)*<T 

=30 > LET E=E* 

1 
961 i IF Y*»"2LP" 

LET D=D*l:E= 

E+l 
962: IF Y*="3LP" 

LET D=D+2:E= 

E+2 
970: GOTO 950 
980: PRINT USING 

"at«8«"IDi" 

DISQUES": 

PRINT "DONT. 

.."SPRINT Ei 

" ALBUMS": 

PRINT "ET... 

..": PRINT D- 

E»" DIVERS" 
990: END 
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- 1.160 : on rentrera done en Y3 le sigle "PS", pour 
pressage special. C'est la aussi qu'il faudra mettre 
le cas echeant "2LP" ou "3LP", utile pour compter 
ses galettes. A defaut, ou en Z$, on notera le nom 
du producteur si cet homme a quelqlie merite, ouquel- 
que autr«? succlncte retnarque Justifiant 1' inclusion 
de la rondelle dans une collection, ou encore rien ! 

- Puis, des le programme DISC, commence la galere 
des criteres de lectures : il y en a 8, le comptage 



- mode 8 - etant rudlmentaire . L' impression des re- 
sultats se fait par fiche complete. 
Pour le type de lecture effectue en 1.900sq., il 
importe d 'avoir ete precis en 1.100 ! 



- LIRDISC : 



10: CLEAR : PAUSE 


=12)LET G=G+ 


"!K!" DISOUF 


"LECTURE DU 


1 


S":PRINT J! T 


FICHIER DISC 


170: IF <S=45>*<< 


PRESSAGES C 


: " 


T=17>+<T=7>> 


ORRECTS":I=J 


20: PAUSE "CRITE 


LET H=H+1 


/K»E2 


RE DE LECTUR 


180: IF Y$="2LP" 


360: PRINT "SOIT" 


E :": INPUT " 


LET 1=1+1 


i USING "MI. 


PftEC ISI0N/F0 


190: IF Y*="3LP" 


88"! IS" \": 


RMATS ? "!A* 


LET J=J+1 


PRINT 


: IF A*="0" 


200: GOTO 100 


END 


GOTO 100 


210:PRINT USING 


400: INPUT f'DISC 


30: INPUT -NB PR 


"«888"iBi" A 


"IA<12):IF L 


ESSAGES C0RR 


LBUMS 30CM": 


*="X"G0T0 45 


ECTS?"SA$:IF 


PRINT "DONT" 





A*="0"G0T0 3 


SI!" 2 LP": 


410:J=J+1 


00 


PRINT "..ET" 


420: IF X*="F"LET 


40: INPUT "NB D" 


SJS" 3 LP" 


K«=K+1 


imports ? -; 


220: PRINT Fi" AL 


430: GOTO 400 


A*: IF A*="0" 


BUMS 45 T" 


450: PRINT USING 


GOTO 400 


230: PRINT Ci " AL 


"88888"! J-Ki 


50: INPUT "LISTE 


BUMS 25CM": 


" IMPORTS": 


PRESSAGE/QU 


PRINT ES" MA 


PRINT 


ALITE?"SA»: 


XIS 33 T": 


END 


IF A*-"0" 


PRINT GS" MA 


500: PAUSE "PRESS 


GOTO 500 


XIS 45 T"! 


AGES CORRECT 


60: PAUSE "GROUP 


PRINT D!" 33 


S = C": PAUSE 


ES FIGURANT 


T/17 CM" 


" INCORRECTS 


SUR": INPUT " 


240: PRINT Hi" SI 


= I": INPUT " 


COMPILATIONS 


NGLES":PRINT 


CHOIX (CI) 


•> "IttllF A 


u p 


? "SA* 


*="0"G0T0 60 


250:A=B+C+D+E+F+ 


510: INPUT 8"DISC 





G+H+I+2J 


"SA(12>:IF L 


70: GOTO 20 


260: PRINT "SOIT 


*="X"END 


100: INPUT 8"DISC 


AU TOTAI " 


520: IF 0$=X*G0T0 


"JAC12):IF L 


: PRINT USING 


560 


$="X"G0T0 21 


"«noi"iA;" 


530: IF Y*="PS" 





DISOUES **": 


GOTO 560 


110: IF CS=33>*<T 


PRINT " 


540: IF A*="I" 


=30>LET B=B+ 
1 




GOSUB 900 
550: GOTO 510 


: PRINT " " 


120: IF <S=33>*<T 


270: END 


560: IF A*="C" 


=25>LET C=C+ 


300: INPUT f'DISC 


GOSUB 900 


1 


••;a<12)iif l 


570: GOTO 510 


130: IF CS=33>*<< 


#="X"G0T0 35 


600: INPUT 8"DISC 


T=1?>+<T=7>> 





"SA<12):IF L 


LET D*D+1 


310:K=K+1 


*="X"END 


140: IF CS=33)*<T 


320: IF 0$=X$LET 


610: IF S=0G0SUB 


=12>LET E-E+ 


J=J+1 


900 


1 


330: IF Y$="PS" 


620: GOTO 600 


150! IF <S=45)*(T 


LET J=J+1 


800: END 


=30>LET F=F+ 


340: GOTO 300 


900: PRINT L*SM$! 


1 


350: PR I NT "SUR"! 


N*: PRINT P$S 


160: IF CS-45)*<T 


USING "88888 


Q$SP*: PRINT 
RETURN 



Ceci est encore plus vrai quand on attaque le second 
programme. Mais quel collectionneur n'est pas precis. 
Rappelon;3 a ce propos que David Thomas, entre autres, 
a sort! un album 15 tours, et que je n'ai pas prevu 
le cas du 17cm "Extraits 1-4" de Faust, qui tourne 



en 15 tours sur une face et en 33 sur 1' autre, ni de 
ce3 anciens de Bauhaus, qui indiquent que l'on peut 
faire tourner leur disque a la vitesse de son choix! 
Imaginons la lourdeur du programme, s'il avalt fallu 
a chaque fois rentrer la vitesse de la face A, puis 
B, identique sur 1000 dlsques, pour le plaisir, au 
1001°, que l'on n'ecoute jamai3, de rentrer 2 chif-^ 
fres dift'erents ! 



Je n'al done retenu pour la 1.210 sq . que les cate- 
gories principale3 de disques que je pos3ede . 



- 11.300 sq . : la petite precaution prise en YS 
trouve ici sa justification. Dieu solt loue, Je ne 
connais pas de double album n'existant qu'en pres- 
sage etranger a la nationality du groupe, d'ou eco- 
nomie de variables ! 



- 11.400 sq . et 500 sq . : la difference est claire 
pour tout amateur. On af fiche pour la partie debu- 
tant en ligne 500, en ligne 600, des extraits de 
fiches . 



NOTA 



il aura done fallu rentrer L3=" 



puis le 



titre de la compilation en PS et S=33 ou U5. et en- 
suite, groupe par groupe, LS="groupe", PS="compl", 
S=0, pour lire correctement le fichier. 



- SELDISC : 

On n'aura jamais, par cette lecture selective, que 
nom.de groupe, de disque et label. II s'aglt de fai- 
re une lecture exhaustive des disques par format, et 
non plus de les compter. 



10: PAUSE "LECTU 
RE SELECTIVE 

*DISC*": 
PAUSE "CRITE 
RE DE LECTUR 

E : " 

20: INPUT "LISTE 
DES 33T/30C 
M ? "IA*:IF 
A*="0"G0T0 1 
00 
30: INPUT "LISTE 
DES LP 45T 
? ":A*:IF At 
="0"G0T0 200 
40: INPUT "LISTE 
DES MAX IS 3 
?T ? "SA*:IF 
Hl="0"G0T0 3 
00 
50: INPUT "LISTE 
DES MAX IS 4 
5T ? "!A*:IF 
A*="0"G0T0 4 
00 
60: INPUT "LISTE 
DES 45V17C 
M ? "SA*:IF 
«*=".£" GOTO 5 



00 
70: INPUT "LISTE 
DES 33T-17C 
M ? "SA*:IF 
A*="0"G0T0 6 

00 
80: INPUT "LISTE 
ALBUMS 25 C 

M ? "IA*:IF 

A*="0"G0TO 7 

00 
90: GOTO 20 
100: GOSUB 800 
110: IF <S-33>*(T 

=30 > GOSUB 90 


120: GOTO 100 
200: GOSUB 800 
210: IF <.S=45)*<T 

=30)G0SUB 90 


220: GOTO 200 
300: GOSUB 800 
310: IF <S«33>*<T 

=12>G0SUB 90 


320: GOTO 300 
400:GOSUB_800 



410: IF <S=45>*<T 
=12)G0SUB 90 

420: GOTO 400 
500: GOSUB 800 
510: IF <S=45>*(< 
T=17>+(T»7>> 
GOSUB 900 
520: GOTO 500 
600: GOSUB 800 
610: IF <S=33>*<< 

T=17>*<T=7>> 
GOSUB 900 

620: GOTO 600 

700: GOSUB 800 

710: IF T=25G0SUB 
900 

720: GOTO 700 

800: INPUT 8"DISC 
"!A<12):IF L 
**"X"END 

810:RETURN 

900: PRINT LtiMti 
N*: PR I NT P*i 
Q*SR$:PRINT 
"<"!W$!">": 

PRINT 

RETURN 



RENOTA : personnel lement , je rentre "Pirate" en ZS, 
mais je ne le dis pas. Enfin, le programme fait, au 
lieu de creer mon fichier, j'ai mis un disque ! 



Jean-Francois Chapin 
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technique 

Modifiez le clavier 
de votre 
PC 1500 



Si vous preferez travailler avec un clavier AZERTY 
accentue ou que vous avez besoln de caracteres grecs, 
arabes, cyriliques, japonais ou speciaux et que vous 
voulez qu'ils soient directement accesslbles au cla- 
vier, cet article vous concerne . . . 



II est en effet possible, pour 1 'utillsateur, de re- 
definir jusqu'a 128 nouveaux caracteres de code ASCII 
480 a 4FF, lai3sant done les 96 caracteres standards 
disponibles (codes 428 a 47F) simultanement . On peut 
aussi changer les codes ASCII envoyes lors de la pres- 
sion sur les touches du clavier : ainsi, on peut ob- 
tenir un A a la place du lorsque l'on appuie sur 
la touche correspondante . Les codes des touches SHIF- 
TEES peuvent etre changes independamment . Seules trois 
touches ne peuvent emettre que leur code normal : DEF 
— >code 4 IB, SHIFT->code 401, SMALL ->code 402. La tou- 
che ON/BREAK n'etant pas scrutee avec le reste du 
clavier, elle n'est pas reassignable . II eat done 
possible d'obtenir un clavier avec caracteres accen- 
tues francais reassignes a SHIFT 0, SHIFT 9, SHIFT 
OFF, SHIFT », SHIFT RCL, SHIFT ENTER. II suffit alors 
de mettre des grilles d 'assignation pour se souvenir 
de 1 'emplacement des nouveaux caracteres (en papier 
pour le pave numerique). 

Pour pouvoir obtenir tout ceci , vous n'avez qu'a li- 
re cet article ! 



A_/ Reassignatlon du clavier 

Chaque touche correspond pour la machine a 2 octets 
dans une table qui normalement se sltue dans la ROM 
de 4FE80 a 4FEFF. Le premier octet est le code ASCII 
de la touche seule, le deuxieme etant le code ASCII 
de la touche SHIFTEE. Ceci est vrai pour toutes les 
touches saul", bien sur, ON/BREAK. Le clavier a 64 
touches (+0N/BREAK), la table fait done 128 octets : 
64 octets pour les touches seules, puis 64 octets 
pour les touches SHIFTEES. La table est reproduite 
ci-dessous car elle est necessaire pour situer les 
? octets reserves a chaque touche. 
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code ASCII* touche 




V Case dont le contenu n'est pas pris en compte par 
la machine. 

Le "true" pour reassigner le clavier consiste a fal- 
re chercher cette table par la machine non plus dans 
la ROM oil elle ne peut etre modifiee mais dans la RAM 
ou 1 'utilisateur pourra la modifier a volonte par des 
POKE, voir 1 "article sur la structure de la memoire 
de la PC- 1500 POKE A. B, C, D. . .met les valeurs B.C.D... 
aux adresses A, A+1.A+2... avec B,C,D... 255. 
Pour que la PC- 1500 sache ou est la nouvelle table, 
on fait P0KE&785E.4NN sachant que l'adresse memoire 
qui suit, la 128eme adresse occupee par la table est 
4NN00 (la table va done de 4NN00-48G a 4NN00-401). 
Ceci montre que la table ne peut pas etre n'importe 
oil en TAM : il faut que la lere adresse qu'elle occu- 
pe soit telle que INT( ( Ad-4:80) /4I00) =0 . Pour une ma- 
chine avec le CE-155, on pourra faire NEWA3A00, ce 
qui protege de la RAM contre les NEW normaux ( pour 
que la table ne soit pas melangee au programme). Les 
128 octets iront done de &398U a S39FF. On fera done 
POKE 4785E.43A. Mais cela ne suffit pas. 

Pour activer la reassignatlon du clavier, il faut 
faire POKE 4761E.PEEK 4764E 0R4C. Ceci allume le sym- 
bole en haut de 1'afficheur. A ce moment le clavier 
a les nouvelles assignations que vous lui avez don- 
nees en changeant les valeurs des codes ASCII a vo- 
lonte dans la table de 128 octets. 

Voici un petit programme BASIC pour rentrer les va- 
leurs dans le tableau : 

1 : WAIT 0:FOR A=43980 TO &39FF : PRINT (A-4397F) ; 
: INPUT "a" ; B:P0KE A,B:NEXT A:END 

Sans le CE-155, changer tous les 43A... par des 442 
. ..,439... par 441 .. . 

Resume de la manipulation avec /sans CE-155 : 

a) NEW 4 3A00 / NEW 44200 

b) rentrer le PRGM ci-dessus, RUN, rentrer les 128 
codes selon votre choix. 

c) POKE 4785E.43A / POKE 4785E.442. 

d) pour activer le nouveau clavier POKE 4764E, PEEK 
4764E 0R&C. 

e) revenir au clavier normal : SMALL. 
L'operation d) peut etre assignee a F1,F2,...ou F6 



Attention : quelles que soient les valeurs des octets 
definissants SHIFT, DEF, SMALL, SHIFT SHIFT, SHIFTDEF, 
SHIFT SMALL, la fonction de la touche concernee n'est 
pas modifiee . 



Pour pouvoir assigner n'importe quol a une touche, 
voila la table des 256 codes ASCII : 



60 - TRACE N° 4 - Janvier 1983 



* 


• 


. 


* 


1 


• 


* 


6 


T 


I 


9 


t, 


• 


C 





i 


r 


.' 




win 


SKILL 












<J 


L^J 


i 


t 


; 


raiti 




orr 


1 




pi 


r? 


rj 


P» 


n 


n 




a 


RCL 


Cft 




IBS 


DEL 


us? • 


? 


SPKCK 


t 




i 


i 


% 


l 


"""' 




) 


• 


• 








i 


\ 


' 


■ 


2 


i 


H 


? 


6 


T 




■• 


■ 




< 


• 


> 


i 


1 


<? 


i 


1 


c 


a 


i 


r 


C 




: 


J 


1 


L 


M 


■ 





* 


i- 





■ 


■ 


T 


'j 


» 


¥ 




i 


; 


i 


¥ 


7T 


- 


- 


1 




• 


t> 


■ 





• 


r 


> 




■ 


i 


k 


i 


• 


- 


• 


V 


" 


<* 


' 


■ 


L 


- 


• 


- 




V 


• 


t 


! 


} 


nj 


a 


a 


DEP5P 


DBF 


mt b 


DBF C 


: ■:• 


DEP I 
USING 


::*:» P 


Dtr c 


DBF H 


Dtr i 


oer j 


MF K 


DEF L 


otr. m 


DEf « 


wr o 
hi not 



Note : touche SP : touche SPACE 

■r non reassignable nl reimplantable (a une autre 
' touche) 
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C.U : caractere defini par l'utilisateur . 

Comme on le constate en observant ce tableau, 3euls 
lies caracteres de codes 428 a 47F et 4A0 a 4DF sont 
reassignables en tant que caracteres. Les codes 400 
a 4 IF sont comprls corame des fonctions par la machi- 
ne et les codes 480 a 49F sont comprls comme la pres- 
sion successive sur la touche DEF et un caractere de 
A a Z ou = ou SPACE sur le clavier. Enfin, la reas- 
signation des codes E0 a 4FF n'est d'aucune utilite : 
elle genere le 1er octet d'un des mots cle du BASIC 
(puisque ceux-ci sont code3 sur 2 octets). Les carac- 
teres utili3ateurs seront expliques dans la suite de 
cet article. 



Pour mieux comprendre le role de3 codes speciaux, 
faites quelques essais . Vous pouvez copier sur cas- 
sette le tableau de 128 octets de votre clavier per- 
sonnalise par l'ordre : 

- avec CE-155 : CSAVE M "CLAVIER"; 43980, 4 39FF 

- sans CE-155 : CSAVE M "CLAVIER" ;44l80, 44 IFF 

pour relire la cassette : CLOAEM "CLAVIER" [;Ad de 
debut] la partie entre crochet n'est necessaire que 
si l'on veut reimplanter la table a une adresse dlf- 
ferente ( recalculer NN pour le P0KE4785E.4NN) . 
L'utilisateur peut ainsi mettre sur la cassette les 
differentes assignations qui lui conviennent pour les 
utiliser alternativement . 

B/ Reassignation des caracteres ASCII de codes 488 

- a 4FF 

La encore, il va s'agir de creer une table dans la 
memoire RAM de la PC- 1500. Les caracteres normale- 



ment access! bles a l'u 
sont defini3 dans une 
a 4FE7F. Normalement, 
4FF sont des copies d 
des 400 a 41F et 480 
espace . II suff it de 
caracteres 480 a 4FF 
l'utilisateur puisse 



tilisateur, de codes 420 a 47F 
table en ROM qui va de 4FC0O 
les caracteres de codes 4A0 a 
e caracteres 420 a 47F, les co- 
a 49F etant consideres comme un 
faire chercher les dessins des 
dans une table en RAM pour que 
definir ses propres caracteres. 



Chaque caractere sera defini par 5 octets, chaque 
octet decrivant une colonne d'un caractere par une 
valeur de 400 a 47F comme pour un GPRINT, la 6eme 
colonne du caractere etant toujoura vide. Le 1er ca- 
ractere (code 480) sera decrlt par les octets 400 a 

404 de la table, le 2eme (code 481) par les octets 

405 a 409 etc.. . 



Cette table si elle doit etre definle avec celle de 
reassignation du clavier doit obllgatoirement com- 
mencer par l'octet qui suit immedlatement le dernier 
octet de la table du clavier, car c'est le meme POKE 
4785E.4NN qui donne la position des 2 tables a l'or- 
dinateur. La table de redefinition des caracteres 
commence done en 4NN00 et se finit en 4NN00+nx5-1, 
n etant le nombre de nouveaux caracteres desires par 
l'utilisateur, de 1 a 128. Attention, seuls les ca- 
racteres de codes comprls entre 4A0 et 4DF parml ceux 
crees sont a3slgnables au clavier (voir table cl-des- 
sus) done si l'on veut assigner m nouveaux caracte- 
res au clavier, il faut creer m+32 caracteres de ta- 
ble commengant tou jours par le caractere de code 480. 



Voici les operations a executer si vous souhaitez n 
nouveaux caracteres : 

AVEC CE-155, sans reassigner le clavier : 
NEW 4 3900+<nx5);POKE 4785D.488, 439 



executer le PRGM : 

1 : WAIT : FOR I=4 3900TO 439 

00+5 * N - 1 : A = (1-439001/5 : P 
RINT INT A ; 5 * (A-INT A) ; 



INPUT 



B 



POKE I, B : NEXT I : END 



en fournissant success! vement le code des 5 colonnes 
(0...4) de chaque caractere (0...N-1). 
Faire CHR$128 : vous devez obtenir votre premier ca- 
ractere . 

Avec le CE-155 et la reassignation du clavier : 
NEW 43A00=(nx5) ; le POKE est deja fait lors de la 
reassignation du clavier ; executer le meme PRGM en 
changeant les 439... par des 43A... 

Sans le CE-155, sans reassignation du clavier : 

NEW 44l00+(nx5). 

Comme avec le CE-155 mais le 439... deviennent 411... 

Sans le CE-155, avec la reassignation du clavier : 

NEW &4200+(nx5). 

Comme avec le CE-155 mais les 4 3A ... deviennent 

412.. . 



Pour terminer, voici quelques exemples de caracteres 
speciaux (accentues francais). A vous de continuer 
maintenant ! 



x: 56, 68, 60,81, 88 1:0, 1, 124, 1,0 6:56,69,68,69,56 a :56, 69, 70,60, 64 
c:64,56,68,68,40 e:56, 84,86,85.24 e :56, 85, 86, 84, 24 e: 56, 85, 86, 85, 24 



-Christophe BOUCHON 
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Visualisez 



y programme. 

H 
H 
H 

O avec un histogramme 

o 



Le programme "HISTO" me permet de faire 1' histogram- 
me des 12 dernieres notes obtenues (ou moln3) par un 
eleve, en tenant compte de3 absences eventuelles. et 
affiche egalement la moyenne sur ces 12 devoirs ou 
interrogations. 

Le sous programme assurant 1' impression du resultat 
figure en tete, des llgnes 2 a 85. Les variables et 
P. rencontrees en 1.1H0, puis 180/190, et 20. ser- 
vent a economiser le papier : inutile de faire une 
courbe de a 20 si un eleve a toujours obtenu entre 
8 et 11... Cela permet en outre (1.65) une lecture 
facile des notes extremes obtenues par 1 'eleve. La 
largeur de la bande de papier limite le nombre de 
notes a 12 maximum : dans la plupart des cas. c'est 
suffisant - du moins en second cycle... 

- Execution : 1.100 on est invite a completer les 
noms courts par des espaces, a concurrence de 7, 
pour avoir un bel affichage en lignes 2-3- 

- 1 10 ; la variable A(37), initialement identique 
au nombre de notes, s'en dif ferenciera (1.200) si 
l'eleve a ete absent a certains devoirs. Elle sert 



au calcul de la moyenne . 

- 130 : impossible de rentrer un sigle du genre 

" Abs" , aussi ce code permettra d' identifier les ab- 
sences. Quelques precautions s'imposent alors pour 
determiner la note maxl (1.190) et la moyenne ( 1.200) 

- 170 : precaution peut-etre inutile, mats 11 y a 
toujours le risque de tenter d'entrer 125 pour 12.5. 

- 1 - 11 : 11 y a peut-etre plus elegant pour reali- 
ser l'en-tete. 

Dans une version anterieure, J 'avals ecrlt : 

Y=123 | 4567890 : T= 10-S: Z= 10*T: Y=INT( Y/Z) 

Ce type de calcul limitait a 9 le nombre des notes, 
imposait un formatage aussi couteux en place que les 
presentes (4 - 11), ainsi qu'une marge lors de 1' af- 
fichage du resultat. 

L' histogramme lui-meme (20-70), est proche dans sa 
conception des remarques de M. CLAVEAU (TRACE n° 2). 



Jean-Francois Chapin 



J « GOTO E2 

2:PRINT N*l":" 
3: PRINT " 


15:PRINT " — 1- 


"t!Ht.8t"iA<3 


X 




6XPRINT " " 


170: IF A<T>>21 




20: FOR R=PT0 


85: RETURN 


BEEP l: PAUSE 


STEP -1 


100:CLEAR :N*=" 


"ERREUR D IN 


4; IF £=2PRINT 


25: FOR T=21TO S 


": 


TR0DUCTI0N": 


! 1 2" 
5: IF S=3PRINT 


+20 


INPUT "N0M ( 


GOTO 160 


30:A=T-19 


7 CARACTERES 


180: IF A<TX0LET 


1123" 
6: IF S=4PRINT 

11234" 
7: IF S-5PRINT 

! 12345" 
8: IF S-6PRINT 

'123456" 
9: IF S=7PRINT 

11234567 


35: IF ACTXRLET 


.1 : "iN$ 


0=A(T) 


A*(A>«" - 


110: INPUT "NB NO 


190: IF IA<T>>P>* 


401 IF A<T)>»R 


TES : "!S:A( 


<A<TX>21> 


LET A*<A>-"» 


37>=S:IF S>1 
2BEEP 2: 


LET P«A<T) 
200:A<35>=A<35)+ 


45: IF R-10LET A 
»<A>«"-" 


PAUSE "12 NO 
TES MAXIMUM" 


ACTMIF A<T> 
=21LET A<35> 


50: IF ACT>=21 
LET A*<A>="! 


:G0T0 110 
120: IF S< = 1BEEP 
2: FOR A<34)= 


=A(35)-21lA< 
37)=A<37>-1 

210:NEXT T 






1T0 3: PAUSE 


220:A<36>=A<35)/ 


10: IF S-8PRINT 


55: IF <A<T>>=10 


"RIDICULE ! 


A<37XG0SUB 


! 1 234567 


>*<R=10)*<A< 


AU SUIVANT ! 


2 


8" 


TX>21)LET A 


":NEXT A<34> 


230: INPUT "MEME 


11: IF S-9PRINT 


*<«)="*" 


: PRINT N*: 


HISTOGRAMME 


H234567 


60: NEXT T 


PRINT " ": 


? -;a*<33): 


89" 


65: PRINT USING 


GOTO 100 


IF A$<33>="0 


121 IF S=10PRINT 


"S»8"IR!" !"l 


130: BEEP 2: PAUSE 


"G0SUB 2:A*< 


! 1 234567 


b*sc*;d*(e*i 


"ABSENT = 21 


33)="": GOTO 


890" 


f*;g*;h*;i$; 




230 


13: IF S=liPRlNT 


j*;k*;l*smi 


140: 0=22: P«-l 


240: INPUT "UN AU 


! 1 234567 


70: NEXT R 


150: FOR T=21T0 S 


TRE ELEVE ? 


8901" 


75: PRINT " --!- 


+20:0=T-20 


";A$(33):IF 

A*<33>="0" 


14: IF S=12PRINT 




160: PAUSE "NOTE" 


! 1 234567 


80: PRINT "MOYEN 


SUSING "UBS" 


GOTO 100 


89012" 


NE : "i USING 


!Q: INPUT A<T 


250: END 
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jeu. 



Boufman, un grand 
classique 
adapts au 

PC 1500 




-T Px 



vie 



Materiel PC- 1500 ou PC2. 

Avis a la population : toute resserablance concernant 
le nom du programme ou les graphiques utilises avec 
le PACMAN «c) NAMCO LTD) est totalement fortuite et 
due au seul hasard ! 

Vous qui possedez un PC- 1500 ou un PC2, qui l'utili- 
sez principalement a des fins "Serieuses", voua qui 
avez si 30uvent reve d'un instant de detente lnfor- 
matise, votre souhait est exauce : voloi BOUFMAN... 

II occupe 536 octets et necessite l'aide d'une per- 
sonne de 7 a 77 ans (nous sommes tres tolerant a 
TRACE)... 

Mais 1' esprit eomlque de l'artlele ne doit pas nous 
detourner du chemin de la prograramation : le program- 
me utilise les capacltes graphiques de l'ecran ; voua 
vous en rendrez compte en allumant votre poquette 
(instruction ARUN) . 

Vous etes cette espece de camembert entame que l'on 
appelle communeraent le Boufman et votre mission est 
de devorer gloutonneraent tous les fantomes qui ap- 
paraitront sur l'ecran (en tout 23 fantomes) ; pour 
ce faire, deux possibilites : 

1) vous vous deplacez pour le3 manger a l'aide 



des touches Q et P ; 
2) tel un cameleon, vous le happez avec votre 
langue en appuyant sur SPACE, mals vous devez 
regarder le monstre pour lui tirer dessus . 

MAIS le fantome se mefie de vous et ne reste present 
a l'affichage que durant un temps determine aleatoi- 
rement . Ce temps est af f iche en secondes sur la drol- 
te de l'affichage. C'est en fonction de cette duree 
que vous devez choisir comment vous neutraliserez le 
fantome (voir ci-dessus). 

- un fantome "mange" vaut 1 point 

- un fantome "avale" vaut J point 

- un fantome laisse libre vaut point 
(normal, non ?) 

A la fin de votre periple, le poquette vous donnera 
une note sur 20 pour votre performance . 



N.B.: La rapidite de deplacement du BOUFMAN est fonc- 
tion de l'etat de vos piles : il est done conseille 
d' avoir de bonnes piles pour faire un massacre... 
Et voila, j'espere que cet intermede ludique vous a 
permis de reprendre des forces, alors raaintenant au 
travail ! 









THEN 20 








5 


ARUN : CLEAR i 


34: 


IF A*=" ' THEN 




=R+]:GCURSOR X 


GPRINT I6i : 




BEEP ON 




250 




: GPRINT C» 


NEXT I 


10 


tJAIT 0: RANDOM 


35. 


IF A*="Q"LET X 


ne 


v=RND 100: 


252:GOSUB 200:U=U- 




.C*=-'001C3E7F7 




•-X-1;GCURS0R X 




GCURSQR Y- 


,5: GOTO 20 




F772200" 




■GPRINT B*i B= 




GPRINT "7E3F7B 


300: BEEP ]0:UA1T i 


11 


B*=' 0022777F7F 




-l:GOTO 37 




3F7B3F7E' j : 


CLS : PRINT "no 




3E1C00".X=78 


36 


IF A*="P"LET X 




RETURN 


te= ";U*20/R; 


20 


G0SUB 100. T] HE 




=X+]-GCURS0R X 


200 


U=U+1:BEEP 2: 


sur 20": GOTO 




^0.A--=RND 10: 




: GPRINT C*; : B= 




RETURN 


5 




CURSOR 22- 




1 


250 


S=SGN CY-X): IF 


1000: CO Danie 1 




P R1NT Ai- IF R= 


37 


IF XOYTHEN 30 




SOBTHEN 30 


GLA2I1AN 




24THEN 300 


40 


G0SUB 200: GOTO 


251 


P0R J=X+3+S*4 


1001: ' <C> TRACE 


30 


«4=1NKEY» : IF 




20 




TO YSTEP S: 


1002: "Boufman. . . 




Tint' *JE4>A 


100 


CLS : RANDOM :R 




GCURS0R 1: 


1003: ' PARIS 1982 



.Daniel Glazman 
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programme. 



Tracez vos courbes 
sur PC 1500 



L'atout principal du PC2 (PC- 1500) est, pour 1' Ins- 
tant, son Imprlmante /table tracante. En effet, cha- 
que point, sur le papier, est adressable par des 
coordonnees cartesiennes ( X, Y) ; ceci autorise quan- 
tite d 'applications dont le trace de courbes y;f(x). 

Certaines personnes pouvant etre interesses par une 
adaptation 3ur un TRS80 muni d'une carte haute reso- 
lution, Je donne la signification des ordre3 graphl- 
ques du PC- 1500 : 



LINE (X,Y)-(Z,T) 

LINE -(X.Y) 

GLCURS0R (X.Y) 

GRAPH 

TEXT 

S0RGN 

LF 



; trace de ligne entre (X,Y) et 

(Z,T_) 
: trace de ligne entre le point 

courant et (X.Y) 
: positionne le point courant en 

(X,Y) 
: passage au mode graphique 
: passage au mode texte 
: positionne l'origine (0,0) au 

point courant 
: Line Feed 



Ce programme permet de tracer les fonctions du type 
Y=f(X), et 3ignale les valeurs d'asymptote verticale 
ou de non-definition de la fonction . 
Seule ombre au tableau : le PC- 1500 n'accepte pas 



XMIN = IX 
XMAX = 71 
STEP = 



0, 1 



que le pas d'une ooucle F0R-MEXT soit decimal. 
FOR I = 1 TO 2 STEP 0, 1 — >ERR0R 19. 

II faudra done modifier les valeurs de 1 'intervalle 
et du pas a l'atde d'un coefficient. Exemple : 

\ .'XMIN = -lO'Tr 

> donnera i XMAX = 10" T 
^STEP = 1 
i^COEFF = 10 

Apres avoir place les stylos noirs, rouge et vert 
dans 1' imprlmante, la fonction en ligne 1000 du pro- 
gramme (1000 Y=F(X): RETURN), executez le programme, 
entrez vos valeurs . . . et admirez ! 

Les axes sont en vert, la courbe en rouge, les asymp- 
totes en noir. 

ARCHITECTURE DU PROGRAMME : 



1-3 : nous sommes fiers de notre oeuvre... 

6-13 : introduction des valeurs 

1it-15 : determiner le maximum de la courbe sur 

1' intervalle donne 

20-31 : trace de la courbe 

32-^3 : impression des axes et fin 

50-55 : en cas d'asymptote ou d'erreur 

1000 : la fonction 



E<x>«£(x>.SJH(lbO 

Fi-ob-11 is ii «\«p e. i 




=<x>-<x. x.x-8.xVt3.x.x-J> 
Fr<x«-I» to It »t«p ». 1 




l.'RErl copyright 

Daniel GLAZHAN 
& TRACE 
2:REH Courbes 01 
3:REt1 
6: COLOR 
7:WAIT 0:DIM A$( 

0>*80 
8: INPUT "F(x>="J 

A$(0) 
9: TEXT :CSIZE 1; 

LPR1NT "F(x>=" 

;a$<0;: clear 
10: input "xmin ?" 

;X0 
11: INPUT "XI1AX ?" 
;X1, "C0EFF. ?" 

12: INPUT "STEP ?" 
;K:Y1=0:ON 
ERROR GOTO 15 

13:LPRINT "From"; 
X0/U;" to"}Xl/ 
U;" step"J«/U 

14:F0R J=X0TO XI 
STEP K:X=I/U: 
PRINT X:G0SUB 



1000: IF ABS Y> 

Y1LET Y1=ABS Y 
15:NEXT 1 
20: GRAPH : 

GLCURS0R (.110, 

0):SORGN : 

COLOR 3 
21 :X-X0/U:GOSUB 1 

000:Q=Y:L=-1 
23: ON ERROR GOTO 

50 3 
25:F0R I=(X0+K)TO 

X1STEP K:X=I/U 

:PR1NT X 
22: IF I^0LET R-=L 
30:GOSUB 1000: 

LINE (Q*105/Y1 

, L+J)-(Y*105/Y 

1, L>:Q=YJL=L-J 
31: NEXT 1 
32: COLOR 2: LINE ( 

-110, R;-(110, R 

) 
33: LINE (0, 0)-(0, 

L) 
34:LINE (0, L)-(-l 

0j 10 + L) 



35:L1NE (95, R-H0) 
-U05, R) 

36:LINE (95, R-10) 

-(105, R) 
39:L1NE (0, L>-(10 

, 10+L) 
40:GLCURSOR (0,-2 

+L> 
4l:R0TATE 1: 

LPRINT "x" 
42:GLCURS0R (95, R 

-12):LPRINT "y 
(• 
43:GLCURS0R (0, L) 

:TEXT :LF 2: 

END 
50: LINE (-110, L>- 

(110,L),0,0: 

COLOR 3 
55: 1=1+K:X=J/U: 

G0SUB 1000: Q=Y 
: I=I+K:L=L-2: 
NEXT l:G0T0 32 
1000:REH Mettre 
ici Y=F(X): ' 
RETURN 



.Daniel Glazman 
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le DOS de A a Z. 



CLOCK - CLS - COPY 



Clock 

Cls 

Copy 



Le Modele 1 possede plusieurs Systemes d' Exploitation 
des Disquettes (SED, ou DOS en anglais). Ces diffe- 
rents systemes ont beaucoup de points communs, 
partlculierement ceux de la "llgnee" TRSDOS- 
NEWDOS-NEWDOS80-LDOS, qui s'inspirent tous, a 
quelques details pres, du TRSDOS de Tandy (version 
inltiale 2.1). Nous publierons regulierement sous 
forme de fiches pratiques, les commandes de ces 
differents DOS, classees alphabetiquement . Ces 
fiches ne pretendent pas remplacer les manuels 
origlnaux qu'il est imperatif de posseder (il 
n'etait pas envisageab'le de publier sous cette forme 
l'equivalent de plusieurs centaines de pages ...). 

Leur but est de fournir a l'utilisateur une 
information rapide d'acces (classement alphabetique ) , 
pratique (exemple3 d'utilisation ) , comparative 
(differents DOS) et dans une langue qu'il est cense 
connaltre (francais) . . . 

Le3 DOS les plus repandus ont ete retenus pour 
constituer ces fiches. Ce sont le TRSDOS version 2-3 
de Tandy, le NEWD0S80 version 2 d'Apparat et le 
LDOS version 5.0 de Lobo Drives International. En 
regie generate, nous nous baserons sur les commandes 
du TRSDOS, en signalant les differences ou les 
apports rencontres dans les autres systemes 
d 'exploitation . 



Conventions d'ecriture 



Dans la description des commandes, les mots en 
caracteres majuscules designent les commandes 
proprement dites, ainsi que les mots-cles associes. 
Les mots en caracteres minuscules ne font pas partie 
des commandes ma is en representent la forme. Au 
moment de 1' execution, il faudra leur substituer 
le ou les mots appropries. Parml ceux-ci, nous 
trouverons par exemple : "nomfich", qui designe 
un nom de fichier, "motpasse" qui signlfie qu'un 
mot de passe (password) est attendu a cet endroit. 
Dans tous les cas, un coup d'oeil sur les exemples 
donnes devrait lever toute ambiguite. 
Enfin, il faut signaler que le NEWD0S80 emploie 
indifferemment la virgule ou 1'eSpaee comme 
separateur dans les commandes. 



CLOCK ( Parametre ) 



But : Cette commande provoque l'affichage de 1 ' heure 
en temps reel en haut et a droite de l'ecran entre 
les positions 53 et 60 ( NEWD0S80 V2) ou 51 et 6 1 ( TRS 
DOS, LDOS) sous le- format : HH:MM:SS. Le reglage prea- 
lable de 1' heure s'effectue par la commande TIME du 
SED. La visualisation de l'horloge est mise a Jour 
une fois par seconde tant que les interruptions sont 
validees. Ceci signifie que le SED interrompra perlo- 
diquement (toutes les 25 ms ou 33, 40 ms sous modele 
3) les programmes non-priorltaires (background tasks) 
en cours (sous BASIC par exemple), pour mettre a Jour 
l'affichage horaire. II e3t a noter que les interrup- 
tions peuvent etre perdues durant les entrees /sorties 
disquette ou cassette necessitant des controles de 
temp3 tres rigoureux . A chaque interruption perdue, 
l'horloge retarde de 25 ms (33,'' sur modele 3), ren- 
dant done sa precision tout-a-falt illusoire ! Lor3- 
que les interruptions 30nt invalidees (CMD"T" du BA- 
SIC), la mise a jour de l'affichage de l'heure n'est 
plus assuree. 



PARAMETRE 



ON ou OFF sous TRSDOS et LDOS 
Y ou N sous NEWD0S80 V2 et LDOS 



Dans ce dernier cas, les parentheses peuvent etre 
omises. 

REMARQUES : 

- Lorsque le parametre est absent, ON ou Y est pris 
implicitement . 

- L'affichage de l'horloge est hors fonction (OFF) 
lors de l'initialisation du SED. 



CLS 



Commande NEWD0S80 V2 unlquement . 



BUT : Effacement complet de l'ecran et retour au mo- 
de d'afflchage de 61 caracteres par ligne (dans le 
cas ou celui-ci etait en 32 c/l>. Sur modele 3, les 
lignes reservees en haut d'ecran ne sont pas ef facees , 

REMARQUE : Cette commande est identique a celle uti- 
lisee sous BASIC 



COPY ligne-de-commande 



BUT : Cette commande est une des plus riches raais 
aussi des plus complexes de NEWD0S80 V2 et LDOS. Elle 
permet la recopie d'un ou de plu3ieurs flchiers et 
meme d'une disquette entiere sous NEWD0S80. Sous LDOS, 
elle peut egalement efrectuer une copie sur des or- 
ganes logiques (ecran, imprimante, ligne RS232) . 
Sauf sous TRSDOS, il est possible en utilisant un 
format special, de copier des flchiers 3ur differen- 
tes disquettes a l'aide d'une seule unite par echan- 
ge (swapping) les disquettes "source" et "destina- 
tion" . 

Cette commande peut etre utilisee dans tous les cas 
de duplication de fichier3 sauf en ce qui concerne 
lea fichiers "systeme" (extension /SYS) qui font par- 
tie integrante du SED et qui necessitent pour etre 
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CLOCK -CLS- COPY 

executables, d'etre iraplantes a une adresse imposee 
sur la disquette (toutefois, oette restriction ne 
semble pas s'appliquer a NEWD0S80 V2>. Seule une com- 
mande globale de recopie de disquettes (BACKUP sous 
TRSDOS on LDOS) en permet la duplication. 

En raison de la grande complexite de COPY sous NEW- 
DOS80 V2 (6 formats, une vingtaine de parametres) et 
LDOS (6 formats), seuls seront decrits dans ce nume- 
ro le format unique de TRSDOS et le format 1 de NEW- 
DQS8Q et LDOS, a savoir la duplication d'un fichier 
dit "source" ou "origine" vers un fichier "destina- 
tion" appartenant ou non a une unite de disque diffe- 
rente de 1' unite origine. 



a) TRSDOS 2.3. 



COPY nomfichl TO nomfich2 



(cette forme est egalement valable pour les autrea 
SED). 

Cette commande produit une copie du ficnier nomfich 1 
(nom/ext .motpasse:no-d 'unite ) sous le nom nomfich2. 
Si nomfich2 existe deja, son ancien contenu est per- 
du et reraplace par le nouveau . Le fichier source n 'est 
pas affecte par la duplication sauf si les specifica- 
tions des deux fichiers 30nt strictement identiques, 
ce qui ne voudrait rien dire • HAPPEL : la copie sur 
deux disquettes en utilisant la merae unite est inter- 
dite ! 

REMARQUE : La recopie n'est bien sur possible que sur 
une disquette destinatrice non-protegee a l'ecriture 
(encoche demasquee). 



b) LDOS 5.0 et 5.1 (format 1) 



Cinq formats differents peuvent etre distingues sous 
la version 5.0 et 6 sous la version 5.'- 



COPY nomfich 1 TO nomfich2 ( LRL=nnn, CLONE) 

Ce format est identique a celui du TRSDOS aux options 
pres : 

LRL est un parametre optionnel ou nnn designe une 
nouvelle longueur d ' enregistrement logique (Logical 
Record Length) pour le fichier destination nomfich2. 
Si ce parametre est absent, les caracteristiques de 
nomfichl sont conservees ( nnn compris entre I et 256). 

CLONE permet non seulement la duplication du contenu 
du fichier nomfichl mais aussi celle des parametres 
figurant dans le repertoire de la disquette source : 
mots de passe d'acces et de mise a Jour, niveaux de 
protection et de visibilite . . . C'est en fait une co- 
pie conforme (un CLONE) du fichier qui est ainsi ob- 
tenue . Si CLONE n'est pas employe et si le fichier 
de destination existe deja, les attributs (definis 
par ATTRIB) de ce dernier resteront inchanges . Dans 
le cas de creation du fichier destination, l'eventuel 
mot de passe donne dans nomfichl servira a la fois 
d'acces et de mise a jour du fichier nomfich2. 

REMARQUE : LRL et CLONE peuvent etre abreges par L 
et C. 

(L' explication de cette commande se poursuit sur les 
prochains numeros). 



Index des 
mots-clgs 



La liste des mots-cles figurant ci-dessous est 
destinee a etre exploitee par le programme de 
gestion des articles decrit dans le numero 1 de 
TRACE (pages 58 a 6t). Le format est le suivant: 



Nom abrege de 1 'article, numero de page 

mots-cles . 



1 a 4 



En prenant 1' habitude d'entrer cette liste a 
chaque numero de TRACE, vous constituerez ainsi une 
petite base de donnees vous permettant de trouver 
plus efficacement et plus rapidement 1' article que 
VoUs cherchez. Bien entendu, cette liste est donnee 
a titre indicatif , et vous pourrez toujours en mo- 
difier ou en completer le contenu, afin de 1' adapter 
a vos besoins ; mais avant toute chose, vous devez 
vous imposer une certaine normalisation des mots- 
cles (en principe, lis sont limltes a 12 caracteres) 
PROGRAMME par exemple, indiquera toujours qu'un 
listage de programme est donne dans 1 'article. Pour 
cela aussi, faites-nous part de vos idees! 



CGP 115, 14: ESSAl, 1MPRIMANTI- , ORAPHIQUE, 

MATERIEL 
CQMPILATEUR FORTRAN, 16: ESSAl, LANGAGE, FORTRAN, 

LOGTCIEL 
LIBRAIRIE, 20: LIVPES, ESSAl 
UISQUETTE TRACE, 23: DISQUETTE, TRACE, L0GICIEL, 

EMPL01 
ENSEIGNEHENT ASSISTE, 25: ENSEISNEH5NT, IANGAGE, 

PILOT, LOGIC! EL 
ECOUTEZ, 26: BRICOLAGE, L0G1CIEL 
INITIATION, 27: LOGICIEL, INTERPRETED^, 

COMi'ILATEUR, INITIATION 
AMORTISSEMENTS. 29: PROGRAMME, C0MPTABIL1TE, 

APPLICATION 
COURBES, 31; PROGRAMME. COURBES . APPLICATION 
JONGLEZ, 3d: PROGRAMME, JEU, AS5IETTES 
OUTILS, 3G: OUTItS, BASIC, ASSEM3LEUK, MONJTEUB 
DEUX FACES, 38: BRICOLAGE, MATES' 1 EL, DISQUETTE 
GRAPHIOUES, 40: PROGRAMME, GRAPHIOUES 
SAUVEGARDE CASSETTE, 43: CASSETTE, PROGRAMME, 

MATERIEL, FICHIERS 
CONVERSION, 4Sj: CASSETTE, DISQUETTE, LOGICIEL, 

FICHIERS 
EFFETS SONORES, 47: PROGRAMME, MUSIQUE 
ROULETTE, 48: PROGRAMME, JEU. GRAPHtOUEH 
MEMENTO, F.3: MEMENTO, Z-BUG, FICHE 
MINUSSULEO, 54: PROGRAMME, MINUSCULES, ECKAN. 

MATERIEL 
REB0NDS, 54: PROGRAMME, CLAVIER, MATERIEL 
NOUVEAUTES, 55: POQUETTE, PCI, PC3 
CONVERSION, 56: POQUETTE, PC], PC?, LOCI:' .1 
FACE CACHES. Sf'i: POeOSTO, Pl'2., PSiQGRAMME, 

AS5EMBLEUR 
FICHIERS, 58: POOUETTE, PROGRAMME, PCI. FlCHIEfl 
AZESTV, 60: "OQUETTE, PROGRAMME, CLAVIER, PC 
HISTO'.,.iAMMES, G2: POQUETTE, PROGRAMME, GRAPHIOUES 
BOWMAN, (>3: POQUETTE, PROGRAMME, JEU, PC? 
COURBES, 04: POOUETTE. PROGRAMME, GRAPHK'i'P 
DOS DE A A Z, 65: FICHE, DOS 



66 - TRACE NM - Janvier 1983 



Imprimerie Laballery, 58500 Clamecy. Imprime en France. Directeur de la publication Jean-Pierre Nizard 
Dep&t legal : janvier 1 983 . Numero de la commission paritaire : en cours. 



soyons serieux. 

Releguez au passe les forcenes de la vente, 

le langage inaccessible des techniciens, 

le radotage des repondeurs telephoniques 

et de ceux qui promettent. 

IDEM vous propose une gamme etudiee 

de Produits Apres-Vente micro-informa- 

tiques et vous off re, pour mieux vous 

guider, une equipe competente 

a I'ecoute permanente de vos besoins, 

ainsi qu'une fiche descriptive par produit. 

IDEM a choisi la Vente Par Correspon- 

dance, en reponse a votre desir legitime 

d'un choix sans contraintes 

et d'un meilleur rapport qualite-prix. 



PASCAL-80 langage hautement structure, est compatible 
TRSDOS llpermet de plus /'usage simultane de I'editeur. 
de I'interpreteur el du compilateur Classeur-manuel et 
disquette avec progs de demo 
PASCAL-80 TRS-80 Mod I 48K 1 disque 1.190.- 

DOSPLUS excellent systeme d exploitation 

100 i compatible Mod l/lll. 

classeur-manuel de 250 pages et disquette. 

DOSPLUS TRS-80 Mod l/lll 1 disque 1.490.- 




GRAFYX SOLUTION carte installGe sans soudure donnant une 
resolution graphique de 512 x 192 Compatible Basic et DOS. 
12 K RAM inclus. Manuel et disquette avec 30 progs de demo 

GRAFYX SOLUTION TRS-80 Mod III 3.290.- 

80-GRAPHIX+ generateur de 128 caracteres programmables 
dans une matrice 8 x 12(6 x 12 Mod I). Installation sans 
soudure. Manuel et disquette avec 20 progs de demo. 
80-GRAFIX+ TRS-80 Mod l/lll 1.590.- 




Tfil tVaJtr(as$tttl a bandr imwnrtiifiir ^.ikn /i.i i '■.! tthutrtkito l«tfl« rtf He . 

et ses lecteurs 

L'ES.F. (Exatron Stringy Floppy) vous apporte une immense 
souplesse d'utilisation, grace a son branchement direct sur 
votre ordinateur, sans besoin d'interface d'extension. A un 
prix nettemenl inf^rieur* au lecteur de disques, sa vitesse 
est surprenante: environ 1 Ko. par secondc, sans aucune 
manipulation, et avec une habilite inegalec sur un systeme a 
bande magnetique. Son manuel decrit avec soin et en rran- 
cais, les techniques evoluees de gestion des fichiers 
sequentiels, sur une ou plusieurs unites chainees. Existe aussi 
en coffret avec son systeme d'exploitation, 5 wafers, des pro- 
grammes de demonstration et un classeur de wafers. 
Carantie 3 mois pieces et main-d'eeuvre. 





Venez voir I'E.S.F. en demonstration permanente cliez 
MICRO-ENERCY BOUTISOFT 
92, rue St Lazare 9, rue de Lalandc 

75009 PARIS 33000 BORDEAUX 
Tel.: (1) 281.23.17 Tel.: (56) 91.55.08 



IDEM 
34 bis, rue Sorbier 

75020 - PARIS 358 44 35 



• Prix T.T.C. conscilles au 1/2/83: 

TRS-80 Mod 1 Drive 2.495,- TRS-80 Mod 3 Drive 3.495,- 

TRS-80 Mod 1 Coffret 2.995- TRS-80 Mod 3 Coffret 3.995,- 

VIC-20/64 bientot disponible TRS-«0 Mod 3 suivant 1.995,- 



Vendre ne suffit plus. 



Importation et Diffusion 

d'Equipement Micro-informauquc 

U bK rue Sorbier 75020 PARIS 

ra:!l) 35844 i$ 



Imponatcur excluslf 
Rccherchnm de* rcvcndciirs 
*ur toutc I.i France 



Nos prix s'entendent T.T.C. - IDEM prend les fraisde port a sa charge. 



AU-DELA 



SHARP est un des plus importants constructeurs mondiaux 
de materiel electronique. 

En 1980, il revolutionnait la micro-informatique en 
presentant pour la premiere fois un ordinateur de poche 
programmable en BASIC - le SHARP PC 1211 - ouvrant 
ainsi I'ere du veritable ordinateur individuel. 
Depuis, SHARP a mis au point toute une gamme de 
machines permettant de repondre aux besoins de 
chacun et notamment de couvrir toutes les facettes de 
I'informatique individuelle et professionnelle. 
Maintenant SHARP va au-dela des machines et met a la 
disposition des utilisateurs les nouveaux outils du savoir: 

D Bourse cfechange de programmes 

□ Bulletin de liaison 

□ Stages de formation 

□ Journees conformation 

□ Clubs cfutilisateurs_. 




. V 



SHARP BUROTYPE MACHINES 
* 151-153, avenue Jean-Jaures - 93300 AUBERV1LLIERS 
\ TEL.: 834.93.44 (Clubs: poste 364) 
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